понедельник, 13 ноября 2017 г.

Домашняя работа на 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]);



Комментариев нет:

Отправить комментарий