ТЕСТ ПО ИНФОРМАТИКЕ
При наполнении страниц сайта информационными материалами следует придерживаться следующих рекомендаций:
1 Не пишите слишком коротких текстов. Текст разбивайте на большие абзацы, отделяя их друг от друга пустыми строками.
2 В каждом абзаце используйте одни и те же приёмы форматирования.
3 Размещайте на странице слишком много информационных и художественных блоков.
4 Названия пунктов меню делайте краткими; недопустимо растягивание названия пункта на несколько строк.
5 Ставьте точку в названиях сайта и страниц, если они состоят из одного предложения.
// Внимание! Если программа не работает, обновите версию!
begin
var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,0,199);
a.Println(4); Writeln(4*a.ColCount*'-');
Write('Искомые числа: ');
var s:=a.Rows.SelectMany(x->x).Where(x->x.Between(10,99))
.Where(x->(x div 10+x mod 10).IsEven);
s.Println;
Writeln('Количество чисел равно ',s.Count)
end.
Пример
Количество строк и столбцов в массиве: 4 7
*** Исходный массив [4,7] ***
65 112 78 133 52 108 39
73 162 64 31 55 156 107
14 105 88 55 16 146 143
19 97 33 138 16 37 198
Искомые числа: 39 73 64 31 55 88 55 19 97 33 37
Количество чисел равно 11
n=8; m=8;
var
mas: array[1..n,1..m] of integer;
i,j: integer; qty: integer;
a,b: integer;
begin
randomize;
{Заполнение массива числами}
for i:=1 to n do begin
for j:=1 to m do begin
mas[i,j]:=random(200);
if mas[i,j]=200 then mas[i,j]:=199;
write(mas[i,j],' ');
end;
writeln;
end;
writeln('******************');
{Поиск двузначных чисел, сумма цифр которых кратна 2}
qty:=0;
for i:=1 to n do
for j:=1 to m do
if (mas[i,j]<100) and (mas[i,j]>9) then begin
a:=mas[i,j] div 10;
b:=mas[i,j]-a*10;
if (a+b) mod 2=0 then
begin
Inc(qty);
write(mas[i,j],' ');
end;
end;
writeln('');
writeln('количество чисел удовлетворяющих условию ',qty);
end.