Var
a:array[1..4,1..5] of integer;
i,j,p:integer;
Begin
p:=1;
For i:=1 to 4 Do
begin
for j:=1 to 5 do
begin
a[i,j]:=random(-70,100);
write(a[i,j]:4);
if abs(a[i,j] mod 10)=3 then p:=p*a[i,j];
end;
writeln;
end;
Writeln('Ответ: ',p)
<span>End.</span>
1 Ученик источник доска информационный канал 2 Боря источник газета инф. канал 3 радио источник Оля приемник 4гена источник мама приемник информационный канал телефон ВРОДЕ ТАК
1) 91
2) 36
3) 3 (опечатка в условиях: вместо stringa надо писать string)
4) Вроде все верно, но быть может кроме а)
...
for i := 1 to N do
begin
if (a[i] mod 10 = 5) then
begin
inc(x);
y += a[i];
end;
end;
writeln(y / x);
...
...
Проверить все элементы массива A. Если остаток от деления элемента на 10 равен пяти, то увеличиваем переменную x на единицу, а y на значение данного элемента. Затем делим y на x и получает результат.
в первом случае х идёт от 1-9 а Y от 0 до 8. шагов 9, к концу Y=8
во 2 случае
y 0 8 14 18 20 20
x 10 8 6 4 2 0
шагов 5, к концу Y=20