У меня еще задачи! Ну я такой чел. простите... Спокойной ночи кто спит! А кто хочет решите мне эти задачи, пожалуйста)))))))))))) Только прономеруйте какой решите! Решите какой хотите! Спасибо. Но мне нужны все
More Questions From This User See All
Answers & Comments
var sum,n,i:integer;
mass:array[1..10000] of integer;
begin
write('N=');
read(n);
for i:=1 to n do
begin
mass[i]:=random(50);
write('mass[',i,']=',mass[i]);
writeln;
sum:=sum+mass[i];
end;
writeln('Сумма равна ',sum);
end.
2.
var n,i:integer;
begin
write('N=');
read(n);
i:=1;
while i<=n do begin
if i mod 2<>0 then
write(i,',');
i:=i+1;
end;
end.
3.
var amax,i,n:integer;
mass:array[1..10000] of integer;
begin
writeln('N=');
read(n);
for i:=1 to n do begin
mass[i]:=random(100);
write('mass[',i,']=',mass[i]);
writeln;
end;
amax:=mass[1];
for i:=2 to n do
if mass[i]>amax then amax:=mass[i];
writeln('Максимальный элемент в массиве равен ',amax);
end.