Program example_dom; var col_pol,col_otr,i,n,k,s:integer; a:array[1..100] of integer; Begin Randomize; writeln('Введите размерность: ');readln(n); For i:=1 to n do Begin a[i]:=-50+random(100); write(a[i]:4); end; s:=s+a[i]; inc(k); col_pol:=0; col_otr:=0; for i:=1 to n do begin if a[i]>0 then col_pol:=col_pol+1 else col_otr:=col_otr+1; end; writeln('сумма элементов массив = ',s); writeln('количество положительных элементов=',col_pol); writeln('количество отрицательных элементов=',col_otr); readln; End.
50 - 20 = 30 р. мы убрали разницу между покупками 30 : 2 = 15 р. заплатили за карандаши. 15 : 5 = 3 р. стоит простой карандаш. 15 + 20 = 35 р. стоят блокноты. 35 : 7 = 5 р. стоит один блокнот. ответ : 3р. стоит карандаш, 5 р. стоит блокнот.
var col_pol,col_otr,i,n,k,s:integer;
a:array[1..100] of integer;
Begin
Randomize; writeln('Введите размерность: ');readln(n);
For i:=1 to n do
Begin
a[i]:=-50+random(100);
write(a[i]:4);
end;
s:=s+a[i];
inc(k);
col_pol:=0;
col_otr:=0;
for i:=1 to n do
begin
if a[i]>0 then col_pol:=col_pol+1
else col_otr:=col_otr+1;
end;
writeln('сумма элементов массив = ',s);
writeln('количество положительных элементов=',col_pol);
writeln('количество отрицательных элементов=',col_otr);
readln;
End.