Домашняя работа на 31 октября

 разобрать таблицу с урока

Проверка чисел на положительность

for i:=1 to 5 do if A[i]>0 then writeln( A[i]);

 Вывод элеммассива А, увеличенных на 7

for i:=2 to 7 do  A[i]:= A[i]+7; 

Присвоение каждому элементк 7

for i:=2 to 7 do  A[i]:= 7;  

Проверка числа не четность

For i:=1 to 5 do   if a[i] mod 2 = 0 then    WriteLn('Число четное')
                                                             else  WriteLn('Число нечетное') ;