Ответы на вопрос:
Const n = 6; var a: array[1..n,1..3] of integer; i: integer; begin randomize; for i: = 1 to n do begin a[i,1]: =i*10; a[i,2]: =random(i*13) div (i+2); a[i,3]: =a[i,2]-a[i,1]; writeln(a[i,1],' ',a[i,2],' ',a[i,3]) end; end.
Популярно: Информатика
-
GuardiaN5502.06.2020 02:44
-
madhinamelinova16.06.2022 02:54
-
skuryan16.03.2021 05:41
-
прграмма4516.02.2021 03:27
-
thankay27.02.2023 18:18
-
natachapligina30.06.2021 07:24
-
wolf13579107.04.2022 04:19
-
Sabinakerimli14.11.2022 05:49
-
муля1506.05.2020 21:41
-
mrANONIM1122.06.2021 19:45