Предмет: Другие предметы,
автор: arty0099
2. Составить подпрограмму нахождения суммы элементов массива, созданного с помощью датчика случайных чисел, кратных данному числу. Вычислить количество положительных и отрицательных элементов в данном массиве.
В ТУРБО ПАСКАЛЕ
Ответы
Автор ответа:
0
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.
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.
Интересные вопросы
Предмет: Физика,
автор: nazar284tagiev7
Предмет: История,
автор: amperelectrickz
Предмет: Математика,
автор: gorbunovaviktoria198
Предмет: Математика,
автор: ерланамир07