Program n1; const n=15; var a: array[1..n] of integer; i,k,sum: integer; begin randomize; k:=0; sum:=0; writeln('исходный массив:'); for i:=1 to n do begin a[i]:=random(21)-10; write(a[i],' '); if a[i]>0 then begin k:=k+1; sum:=sum+a[i]*a[i]; end; end; writeln; writeln('сум. кв. положительных: ',sum); writeln('кол-во положительных: ',k); end.
Const N = 10; var a, S1, S2: Integer; i, Q1, Q2: Byte; begin S1 := 0; Q1 := 0; S2 := 0; Q2 := 0; writeln('Введите ', N, ' чисел:'); for i := 1 to N do begin read(a); if a < 0 then begin S1 := S1 + a; inc(Q1) end; if a > 0 then begin S2 := S2 + a; inc(Q2) end; end; writeln; if Q1 > 0 then begin writeln('Сумма отрицательных чисел: ', S1); writeln('Количество отрицательных: ', Q1) end else writeln('Отрицательных нет'); if Q2 > 0 then begin writeln('Сумма положительных чисел: ', S2); writeln('Количество положительных: ', Q2) end else writeln('Положительных нет') end.
Const N = 10; var a, S1, S2: Integer; i, Q1, Q2: Byte; begin S1 := 0; Q1 := 0; S2 := 0; Q2 := 0; writeln('Введите ', N, ' чисел:'); for i := 1 to N do begin read(a); if a < 0 then begin S1 := S1 + a; inc(Q1) end; if a > 0 then begin S2 := S2 + a; inc(Q2) end; end; writeln; if Q1 > 0 then begin writeln('Сумма отрицательных чисел: ', S1); writeln('Количество отрицательных: ', Q1) end else writeln('Отрицательных нет'); if Q2 > 0 then begin writeln('Сумма положительных чисел: ', S2); writeln('Количество положительных: ', Q2) end else writeln('Положительных нет') end.
const n=15;
var a: array[1..n] of integer;
i,k,sum: integer;
begin
randomize;
k:=0;
sum:=0;
writeln('исходный массив:');
for i:=1 to n do
begin
a[i]:=random(21)-10;
write(a[i],' ');
if a[i]>0 then
begin
k:=k+1;
sum:=sum+a[i]*a[i];
end;
end;
writeln;
writeln('сум. кв. положительных: ',sum);
writeln('кол-во положительных: ',k);
end.