Составьте программу которая запрашивает значения элементов одномерного…

Question

60

Составьте программу которая запрашивает значения элементов одномерного числового массива а, стоящего из 10 элементов, формирует и выводит на экран встроку данный массив. Найти сумму неположительных элементов массива, количество элементов кратных 3, произведение элементов, стоящих на четных местах

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

pterodaktil · Accepted Answer

78

pterodaktil

29 марта 2023

program z1; uses crt; var m: array[1… 10] of integer; i,a,b,c: integer; beginfor i: =1 to 10 doreadln (m[i]); writeln; a: =0; b: =0; c: =1; for i: =1 to 10 do begin if m[i] <= 0 then a: =a+m[i]; if m[i] mod 3=0 then b: =b+1; if i mod 2=0 then c: =c*m[i]; end; writeln (Сумма отриц',a); writeln (кратные 3',b); writeln (произв',c) end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: