Составить программы заполнения одномерного массива случайными числами от 1 до 100 и вывести его на экран компьютера

margarinchik2008 margarinchik2008    1   15.05.2020 05:51    1

Ответы
nikolayAK nikolayAK  14.10.2020 19:18

Program Pl_9_1;

uses crt;

Type Mas=array[1..10] of integer;

Var A:Mas;

i:integer;

Begin

Clrscr;

For i:=1 to 10 do begin

A[i]:=random(100)-0;

Writeln(A[i]);

end;

end.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика