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.
В 1-м куске ткани - 72 м Во 2-м куске ткани - 104 м Сшито костюмов из 2-го куска ткани - ?, на 4 костюма >, чем из первого куска ткани. Необходимо узнать сколько костюмов сшито из 1-го куска ткани. Мы знаем, что мастерской надо сшить одинаковые костюмы из этих двух кусков ткани. 1. Узнаем на сколько 2-ой кусок ткани больше, чем 1-ый: 104 - 72 = 32 (м) 2. На 32 м 2-ой кусок ткани больше, чем 1-й. Из 2-го куска ткани сшили на 4 костюма больше, это значит что на 4 костюма пришлось 32 м ткани. Узнаем, сколько метров ткани понадобилось на 1 костюм: 32 / 4 = 8 (м) 3. Узнаем сколько костюмов сшито из 1-го куска ткани: 72 / 8 = 9 (к) ответ: 9 костюмов сшито из первого куска ткани.
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.