домашняя работа на 25-28 октября 10 класс

 

Выучить

Таблица№2. Проверка элемента массива
положительные эл мас	for i:=1 to 5 do if A[i]>0 then
отрицательные эл мас	for i:=1 to 5 do if A[i]<0 then
Четные эл мас	for i:=1 to 5 do if A[i]mod  2=0 then
нечетные эл мас	for i:=1 to 5 do if A[i]mod  2=1 then
эл мас кратных 3	for i:=1 to 5 do if A[i]mod  3=0 then
эл мас больших 20	for i:=1 to 5 do if A[i]>20 then
эл мас равные 7	for i:=1 to 5 do if A[i]=7 then
элементы мас. кратные 4 и отрицательные	for i:=1 to 5 do (if A[i]mod 4=0) and (if A[i]<0) then

1.Опишите массив А из семи вещественных элементов	Var A : array [1..7] of real;
2.Опишите массив А из 6 целых элементов	Var A array [1. 6] of integer;
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]);