Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.
Новые вопросы по предмету Информатика:
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.