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

+932 голосов
5.4m просмотров

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


Информатика (28 баллов) | 5.4m просмотров
Дан 1 ответ
+185 голосов

Ответ:

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.

Объяснение:

(137 баллов)