я жил нормальной человеческой жизнь пока не произошёл не несчастный случай меня сбил мусаравоз и я был в очень тяжёлом состоянии мне заменили большую часть конечностей на механические это было ужасно я не верил то что это произошло со мной но не сколько лет с того случая быть на половину роботом это не так уж и плохо я не устаю, механические конечности более сильные моих прежних частей тела конечно для меня много чего закрыто но я не унываю и я стал оптимистом и защищаю природу и мне так скажу всё сходит с рук которых у меня нет. Нужно во всём искать хорошее.
Объяснение:
это история реальна она про меня
var a: array[1..amax,1..amax] of integer;
i,j,k,n,m: byte;
begin
write('Введите размеры массива(матрицы (<20)):');
readln(n,m);
writeln('Массив(матрица):');
for i:=1 to n do begin
for j:=1 to m do begin a[i,j]:=random(99)+1;
write(a[i,j]:4);
end;
writeln;
end;
writeln('Кол-во четных элементов по колонкам:');
for j:=1 to m do
begin
k:=0;
for i:=1 to n do
if odd(a[i,j])=false then inc(k);
writeln('В ',j,' столбце ',k);
end;
writeln('Конец программы!');
end.