Const
N = 25;
Var
A:array[1..N] of integer;
i,k:integer;
Begin
k:=0;
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=random(401)-200;
Write(A[i],' ');
if (A[i] = 0)and(i mod 3 <> 0) then k:=k+1;
End;
WriteLn;
WriteLn('k = ',k);
End.
Текст плохо форматируется, поэтому скину файлом.
//PascalABC.NET 3.4.2
1.
begin
write(arrrandom(10, -15, 15).Println.Where(x -> x > 0).Sum);
end.
2.
begin
readarrinteger(15).Select(x -> x mod 2 <> 0 ? 1 : x).Println;
end.
3.
begin
readarrreal(10).Where(x -> x > 0).Average.Println;
end.
Фото из учебника, вы че все такие тупые то? надо фотки присылать и еще сама раскрасить не можешь чтоли?
Используем законы логики:
Дистрибутивность
Закон инверсии
Правило операции с константой
Закон де Моргана
...