урок 14 ноября

Повторить

1. Опишите массив М из 5 вещественных элементов
2. Опишите массив D из 8 целых элементов
3 Вывод положительных чисел
4. .Ввод элементов массива с клавиатуры
5. Ввод элементов массива с клавиатуры с комментарием
6. Вывод элеммассива А, увеличенных на 11
7. Вывод элементов массива через запятую
8. .Вывод эл/ массива с новой строки
9. .Проверка числа на четность
10 Проверка числа на нечетность и кратность 4

Подготовка к практической работе

1.   Проверка чисел на положительность
2. Подсчет количества положительных чисел
3.  Вывод элем. массива А, увеличенных на 9
4. Присвоение каждому элементу 3
5. Проверка числа на четность
6. Проверка числа на нечетность
7. Проверка числа на кратность 6
8. Ввод элементов массива с клавиатуры с комментарием
9. замена всех чисел кратных 22 на 5
10. подсчитать сумму четных чисел

помощь

Решенная задача 2 в помощь

var a: array[1..5] of integer;

  r,i: integer;

    s: real;

begin

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

For i:=1 to 5 do 

  if a[i] >= 0 then  begin   WriteLn('число положит и колич'); r:=r+1 ;   end

                    else  WriteLn('число отриц -') ;

              

  WriteLn('число поло -',  r) ;              

 end.