Предмет: Информатика,
автор: mal0y192
Помогите пожалуйста! Очень срочно надо! Сдать до 17:00!
Приложения:
![](https://files.topotvet.com/i/739/739d738381607bb6186763f2d65c9086.png)
mal0y192:
Поможешь?
Ответы
Автор ответа:
0
Відповідь:
var
i:integer;
t1:array[1..15] of integer;
t2:array[1..50] of integer;
t3:array[1..8] of integer;
t4:array[1..12] of integer;
begin
for i:=1 to 15 do begin
t1[i]:=random(0,50);
writeln(t1[i]);
end;
for i:=1 to 50 do begin
t2[i]:=random(10,45);
write(t2[i]+' ');
end;
writeln();
for i:=1 to 8 do begin
t3[i]:=i*i;
write(t3[i]+' ');
end;
writeln();
for i:=1 to 4 do begin
t4[i+2*(i-1)]:=3+9*(i-1);
t4[i+1+2*(i-1)]:=6+9*(i-1);
writeln(t4[i+2*(i-1)]);
writeln(t4[i+1+2*(i-1)]);
writeln(t4[i+2+2*(i-1)]);
end;
end.
Похожие вопросы
Предмет: Английский язык,
автор: макс123666
Предмет: Русский язык,
автор: аринка53
Предмет: Немецкий язык,
автор: swald1
Предмет: Алгебра,
автор: irahone78
Предмет: Литература,
автор: muhammednrmtv