решите одно из предложенных, умоляю
дан массив А5 найти сумму и количество положительных элементов
дан массив А5 определить количество отрицательных элементов
дан массив А6 определить количество положительных элементов
дан массив А5 найти сумму и количество положительных элементов
дан массив А5 определить количество отрицательных элементов
дан массив А6 определить количество положительных элементов
More Questions From This User See All
Answers & Comments
const
n=5;
var
a:array[1..n]of integer;
i,k,s:integer;
begin
for i:=1 to n do
begin
readln(a[i]);
if a[i]>0 then
begin
s:=s+a[i];
k:=k+1ж
end;
writeln('ARRAY:');
for i:=1 to n do
write(a[i]:4);
writeln;
writeln('S: ',S,' k: 'k);
end.