Объяснение:
Б сказали решить, его и решил..........
1)var a:array[1..15] of integer;
i,s:integer;
begin
randomize;
for i:=1 to 15 do a[i]:=random(20)+10;
for i:=1 to 15 do if a[i] mod 3=0 then s:=s+1;
writeln(s);
end.
2)var a: array[1..10] of integer;
i, s: integer;
begin
randomize;
for i := 1 to 10 do a[i] := random(21) - 10;
for i := 1 to 10 do if (a[i] > 0) and (a[i] mod 2 = 0) then s := s + 1;
writeln(s);
end.
<span>p:=(a+b+c)/2; это модуль
</span><span>resh(S,p,a,b,c); это пм</span>
Ответ:
Объяснение:
if mas[a]<=mas[min] then min:=a;
if mas[a]>=mas[max] then max:=a;
тут идет сравнение мас в номере ячейки А с массивом в номере ячейки min , если mas [ячейка а ] меньше mas[min] то их индексы меняется местами
if (a<>min)and(a<>max) then writeln (mas[a]);
Если индексы а не равен мин И индекс а не равен макс , то вывод на экран мас[а]