урок 24 октября

 var a: array[1..5] of integer;  i: integer;
    s: real;
begin

For i:=1 to 5 do read (a[i]);

For i:=1 to 5 do begin
  if a[i] mod 2 = 0 then

    WriteLn('Число четное')
  else
  WriteLn('Число нечетное')
   end;

учебник 2,6 стр42

Основные команды РАЗОБРАТЬ

1. Опишите массив М из семи вещественных элементов	VarA : array [1..7] of real;
2. Опишите массив М из 6 целых элементов	Var A array [1. 6] of integer;
Вывод положительных чисел	for i:=1 to 5 do if A[i]>0 then writeln( A[i]);
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]); writeln( A[i]); end;