2)
const
n = 20;
var
a : array [1..n] of integer;
b,i,num : integer;
begin
//Формирование массива пропускаю
readln (b);
nom := 0;
for i := 1 to n do //Поиск номера элемента
if a[i] = b then // , равного b
num := i;
if num <> 0 then
writeln ('Есть, его порядковый номер=',num)
else
writeln ('Нет');
end.
59
В F и G по 6 переменных, значит по 64 строки. Из них 10 строк одинаковые, значит 54 разные( в F стоит 0, а в G-1 или в F-1, а в G-0). <span> F \/ G будет в этих 54 </span>равно 1 и в 10 где 1 (5 строк) тоже. Полуаем 54+5=59.
Var
p:array [1..4,1..5] of integer;
i,j,k:integer;
begin
for i:= 1 to 4 do
begin
for j:=1 to 5 do
begin
p[i,j]:=Random(-100,100);
write(p[i,j]:5);
end;
writeln;
end;
for i:= 1 to 4 do
begin
k:=0;
for j:=1 to 5 do
if p[i,j]>0 then k:=k+1;
writeln ('Количество положительных элементов в строке ',i,' равно: ', k);
end
end.
Program log1;
Var x,y,s:integer;
Begin
writeln('x=');
readln(x);
writeln('y=');
readln(y);
s:=sqr(x)+sqr(y);
if s<=4
then writeln('4 равен или больше чем сумма квадратов x и y')
else writeln('4 меньше суммы квадратов x и y');
end.
Можешь сам зайти на компьютере в калькулятор--вид--программист-- и воаля . Там разобрать не трудно , зато сам будешь знать как это делать. :-)