Var
i:Integer;
A:Array[1..10] of Integer;
begin
Randomize;
for i:=1 to 10 do
A[ i ]:=Random(100);
end.
Только не понял - ввод с клавиатуры или заполнить случайными числами?
Задача8.
1. Программа выведет count=2 и maximum =3
2. Если в последовательности 1 число кратно 3 программа выведет правильный результат
3. Необходимо исправить
maximum:= -999
if x>maximum then
Можно даже немного короче:
var:
s1,s2:string;
begin
writeln('Vvedite pervyu stroky');
readln(s1);
writeln('Vvedite vtoryu stroky');
readln(s2);
if (Length(s1))>(Length(s2)) then
writeln('Pervaya stroka bolshe,chem vtoraya')
else
writeln('Vtoraya stroka bolshe,chem pervaya');
readln;
<span>end.
Проверял - всё работает, ошибок нет.</span>