ДАЮ МНОГО БАЛЛОВ! Паскаль. Нужно добавить в код разность, частное и произведение.
Можно сделать 2 из 3, можно с небольшими ошибками. Срочно нужно, помогите пожалуйста!
program z_2;
var s,i: integer;
a: array[1..10] of integer;
begin
s:=0;
randomize;
for i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i], ' ');
s:=s+a[i]
end;
writeln ('s=', s)
end.
Можно сделать 2 из 3, можно с небольшими ошибками. Срочно нужно, помогите пожалуйста!
program z_2;
var s,i: integer;
a: array[1..10] of integer;
begin
s:=0;
randomize;
for i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i], ' ');
s:=s+a[i]
end;
writeln ('s=', s)
end.
More Questions From This User See All
Answers & Comments
var s,i,p: integer;
a:array[1..10] of integer;
begin
s:=0;
p:=1;
randomize;
for i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i], ' ');
s:=s+a[i];
p:=p*a[i];
end;
writeln;
writeln ('s=', s);
writeln ('p=', p);
end.
смог добавить произведение,а вот с частным условие не совсем полное, частное чего? последнего и первого элемента? суммы на количество?