Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

В однородном массиве А из n элементов найти количество ненулевых элементов и уменьшить положительные элементы на 20.

Ответ оставил Гость

program zadacha;
var i,s: integer;
a: array [1..10] of integer;
begin
writeln (Введите элементы массива);
for i:=1 to 10 do
begin
write (a[,i,]=);
readln (a[i]);
if a[i]<>0 then s:=s+1;
if a[i]>0 then a[i]:=a[i]-20;
end;
writeln (В массиве ,s, не нулевыхэлемента); 
for i:=1 to 10 do
write (a[i], );
end.