Домашняя работа на 20 ноября

1.Опишите массив А из семи вещественных элементов	Var A : array [1..7] of real;
2.Опишите массив А из 6 целых элементов	Var A array [1. 6] of integer;
3Вывод элементов массива через запятую
4..Ввод элементов массива с клавиатуры	for i := 1 to 5 do read(A[i]) ;
5.Ввод элементов массива с клавиатуры с комментарием	for i:=1 to 7 do begin write(‘введите рост ’, i, ‘ученика’); readln( A [i]); end;
6.Вывод элем.массива А, увеличенных на 7	for i:=2 to 7 do  begin A[i]:= A[i]+7; writeln( A[i]); end;
7.Вывод элементов массива через запятую	for i:=1 to 4 do write( A[i], ‘, ’);
8..Вывод эл/ массива с новой строки	for i:=1 to 4 do writeln( A[i]);
9..Вывод элементов массива А, возведенных в квадрат	for i:=1 to 6 do  begin A[i] := sqr(A[i]); end; writeln( A[i]);