Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

У меня еще задачи! Ну я такой чел. простите... Спокойной ночи кто спит! А кто хочет решите мне эти задачи, пожалуйста)))))))))))) Только прономеруйте какой решите! Решите какой хотите! Спасибо. Но мне нужны все

Ответ оставил Гость

1.
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.