| Versifikator | Дата: Среда, 18.05.2011, 11:18 | Сообщение # 1 |
|
Сержант
Группа: Администраторы
Сообщений: 29
Статус: Offline
| Помогите, пожалуйста.
Нужно заполнить случайным образом и вывести на экран одномерный массив средствами Pascal.
|
| |
| |
| Versifikator | Дата: Среда, 18.05.2011, 11:20 | Сообщение # 2 |
|
Сержант
Группа: Администраторы
Сообщений: 29
Статус: Offline
| uses crt;
var i:integer;
a:array[1..250] of integer;
begin
clrscr;
randomize;
write('Vvedite kolichestvo elementov massiva: ');
readln(n);
for i:=1 to n do
begin
a[i]:=random(255);
end;
writeln('massiv imeet vid: ');
for i:=1 to n do
write(a[i],' ');
readln;
end.
|
| |
| |
