Створити цілочислений масив А з 16 елементів. Заповнити його з клавіатури, та
Вивести на екран в рядок. Обчислити кількість та суму всіх ненульових елементів
масиву,на паскаль или си
Вивести на екран в рядок. Обчислити кількість та суму всіх ненульових елементів
масиву,на паскаль или си
More Questions From This User See All
Answers & Comments
Ответ:
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.
Объяснение:
Паскаль