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.
|
|
| |