Var a:array[1..10] of integer;
i,x:integer;
begin
write('Исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(5);
write(a[i],' ');
end;
WRITELN;
write('Что ищем?: ');
readln (x);
for i:=1 to 10 do if x=a[i] then write('A[',i,'] ');
end.
Даны<span> два </span>числа<span>. Если оба кратны </span>четырем<span>, </span>товывести<span> их произведение.</span>
<span>Ответ: Если кратны, </span>то<span> значит без остатка делится на </span>4<span>. Первая формула будет деление на </span>4. Дальше уже условие какое-то<span> мутить на проверку полученного результата
</span>
1) *
******
*****
2)**
т.к. тут 0, то ничего нет
****
***
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a :=ReadArrInteger(n); // бессмысленное занятие
a := ArrRandom(n, 1, 50);
a.Println
end.