ЗАПОЛНЕНИЕ И ВЫВОД МАССИВОВ (продолжение)
Заполнить и вывести на экран одномерный массив символов.
Program Primer2;
uses crt;
{******* заполнение массива при его объявлении *******}
const a: array[1..5] of char=('a','b','c','d','e');
procedure Print(n: integer);
var i: integer;
begin
for i:=1 to n do write (a[i]:2)
end;
Begin
clrscr;
write('Массив А: ');
Print(5);
readkey;
End.
З А Д А Н И Я:
1. Набрать и исполнить программу.
2. Вывести на экран первые 3 буквы.
3. Вместе с тремя буквами вывести на экран последнюю букву.
3. Заполнить массив дробными и отрицательными значениями.
4. Заполнить и вывести на экран одномерный массив, содержащий 200 одинаковых элементов.
5. Вывести элементы построчно ( используйте wherex, см. практическое занятие 17 ).
6. Вывести элементы в указанной с клавиатуры строке экрана.