Question

Створити цілочислений масив А з 16 елементів. Заповнити його з клавіатури, та
Вивести на екран в рядок. Обчислити кількість та суму всіх ненульових елементів
масиву,на паскаль или си​

Answer 1

Ответ:

program z1;

var A: array [1..16] of integer;

i,s,k: integer;

begin

s:=0;

k:=0;

for i:=1 to 16 do

begin

write('Введите ',i:2,' элемент массива: ');

readln(A[i]);

if A[i]<>0 then

begin

s:=s+A[i];

k:=k+1

end

end;

write('Вывод элементов массива в стоку: ');

for i:=1 to 16 do write(A[i],' ');

writeln;

writeln('Сумма всех ненулевых элементов массива: ',s);

write('Количество всех ненулевых элементов массива: ',k)

end.

Объяснение:

Паскаль