Var mas:array[1..1000, 1..1000] of integer; N,M,i,j,k:integer;
Begin Writeln('Введите размер матрицы N*M'); Write('N = '); readln(N); Write('M = '); readln(M);
if (M>1000) or (N>1000) or (M<1) or (N<1) then Writeln('Ошибка, указанные значения выходят за пределы матрицы') else Begin Writeln('Введите элементы матрицы');
k:=0; for i:=1 to N do for j:=1 to M do Begin readln(mas[i,j]); if (mas[i,j] mod 2 = 0) then k:=k+1; end;
Writeln(); Writeln('Исходная матрица');
for i:=1 to N do Begin for j:=1 to M do Begin Write(mas[i,j], ' ') end; Writeln(); end;
Writeln(); Writeln('Количество четных элементов = ',k); end;
Я вам уже же дал пример, могли бы сами под себя подстроить, вот, ловите:\\ var input, num, nulls, positive, negative, i: integer; begin write('Введите кол-во чисел: '); readln(input); for i := 1 to input do begin write('Введите число номером ', i, ': '); readln(num); if num = 0 then inc(nulls, 1); if num < 0 then inc(negative, 1); if num > 0 then inc(positive, 1); end; writeln('Кол-во нулей: ', nulls); writeln('Кол-во положительных чисел: ', positive); writeln('Кол-во отрицательных чисел: ', negative); end.
Ошибка допущена у Ани и Оли
Объяснение:
Потому что IP-адрес- это четыре числа, которые могут иметь максимальное число 264, написаные через запятую или точка с запятой.