Const n = 100; var a: array[1..n] of integer; i, countp, counts, countz: integer; begin for i : = 1 to n do begin a[i] : = random( -20, 20 ); write ( a[i], ' ' ); if a[i] > 0 then inc(countp); if a[i] < 0 then inc(counts); if a[i] = 0 then inc(countz); end; writeln(); writeln('количество положительных чисел: ', countp); writeln('количество отрицательных чисел: ', counts); writeln('количество нулей: ', countz); // выводим количество нулей (для проверки, что в сумме у нас 100 элементов) end.
kireevatatiana
19.10.2022
Const n1 = 5; n2 = 5; var a: array [0..n1, 0..n2] of integer; b: array [0..n1*n2] of integer; i, j, n: integer; begin for i: =0 to n1 do {заполнение массивы случайными числами} for j : = 0 to n2 do a[i, j] : = random(9999); for i: =0 to n1 do {основная часть, проверка и заполнение второго массива} for j : = 0 to n2 do if (a[i, j] mod 2 = 0) then begin b[n] : = a[i, j]; n : = n + 1; end; for i: =0 to n do {вывод полученных чисел} writeln(b[i]); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Изобразите схему для функции f(x, y)=xvy исполнить её для (0, 1) и (1, 1) в формульном виде