Помогите! Информатика! Составьте прграммы! Хотя бы первые 2! Желательно 3! 100 баллов!
Нет комментариев
Ответы
Гость //1
var
M: array [1..9] of integer = (3,4,7,9,19,23,24,27,39);
i: byte;
begin
for i := 1 to 9 do write(M[i], ' ');
end.
//2
var
M: array [1..5] of integer;
i: byte;
sum: integer;
begin
randomize;
for i := 1 to 5 do
begin
write('M[',i,'] = ');
readln(M[i]);
sum := sum + M[i];
end;
writeln('Сумма = ', sum);
end.
//3
var
M: array [1..9] of integer;
i: byte;
begin
randomize;
for i := 1 to 9 do
begin
M[i] := random(100);
write(M[i], ' ');
end;
end.
Нет комментариев
Список предметов
