Дан массив А(100). Найти кол-во его отрицательных элементов. 2.Дан массив А (50, 100). Найти сумму элементов - id1717673920200317 от jora2003123 17.03.2020 12:59

Question

Информатика: Дан массив А(100). Найти кол-во его отрицательных элементов. 2.Дан массив А (50, 100). Найти сумму элементов каждого столбца 3.Дан массив А(100, 50). Найти кол-во четных элементов и сумму остальных. 4.Объяснить работу данного алгоритма. Найти и исправить ошибку в блок-схеме Дан массив А(10, 20). Проверить, если в массиве есть четные числа, то заменить их на 0. ответы в виде блок-схемы

jora2003123 · Accepted Answer

Var ar : array [1..100] of integer;
i, pluscount,minuscount,zerocount : integer;
begin
readln(n); -считываем число элементов массива(если оно дано, я не знаю)
for i := 1 to n do
begin
read(ar[i]); - считываем элемент массива, заносим его в массив
if (ar[i] > 0) then pluscount := pluscount+1; -если >0 -> увел. счетчик пол.чисел
if (ar[i] < 0) then minuscount := minuscount+1; -если <0 -> увел. счетчик отр.чисел
if (ar[i] = 0) then zerocount := zerocount+1; -если =0 -> увел. счетчик нулей
end;
writeln('В массиве ',pluscount,' положительных чисел, ',minuscount,' отрицательных чисел, ',zerocount,' нулей.');
end.

MOGZ ответил