Const
N = 20;
Var
A:array[1..N] of real;
i:integer;
S:real;
Begin
Randomize;
S:=0;
Write('Исходный массив A(',N,'):');
For i:= 1 to N do
Begin
A[i]:=random*(N*2+1)-N;
Write(' ',A[i]:0:3);
S:=S+A[i];
End;
WriteLn;
WriteLn('S = ',S);
End.
uses crt;
var
a, b, i : real ;
begin
clrscr;
write('Курс $= '); readln (a);
write ('Сумма в рублях = '); readln (b);
i:= b/a;
writeln (i:6:2);
readkey;
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.
Величина Оценка присвоить значение 4
Величина Цвет присвоить значение желтый
величина литры присвоить значение +20
Величина этаж присвоить значение -2
Величина колич.вагонов присвоить значение +4
величина сахар присвоить значение сахар&мука
Ну вроде так. Нас так учили