Цитата:
Сообщение от Ella
|
Пожалуйста, ошибки я исправил:
Код:
program mass;
uses crt;
var
x:array [1..40] of integer;
k: integer;
begin
Randomize;
clrscr;
for k:=1 to 40 do
begin
x[k]:=50-Random(100);
Write(X[k]:4);
end;
writeln;
k:=0;
Repeat
k:=k+1;
Until x[k]<0;
writeln ('element pod nomerom ', k, ' znacenie ', x[k]);
readln;
end.
Добавлено заполнение массива с помощью генератора случайных чисел и вывод массива на экран.