Задание:
Дан массив состоящий из 10 элементов заполнить массив целых чисел найти сумму, количество элементов положительных и кратных три.
Решение:
vari,a,b: integer; x: array[1… 10] of integer; begina: =0; b: =0; for i: =1 to 10 dobeginbeginx[i]: =random (21) -10; write (x[i]: 4); end; if (x[i]>=0) and (x[i] mod 3=0) thenb: =b+1; end; writeln; write ('количество элементов положительных и кратных три=',b); writeln; for i: =1 to 10 dobegina: =a+x[i]; end; write ('суммa=',a); end.
Знаете другой ответ?