найти пару носков
взять один носок, взять второй носок
если носки составляют пару, то ура
если не пара, то опять берем носки
найти пару взаимно простых чисел
взять одно число
взять второе число
Если они взаимно простые , то ура
иначе опять ищем числа
не забываем - нумерация в массиве начинается с 0
var
d : array of integer := new integer[30];
n : integer := -1;
i : integer;
begin
d := arrRandom(30, -100, 100);
repeat
n += 1;
if d[n] > 0 then i += 1;
until (n = 29) or (i = 4);
writeln('массив: ', d);
writeln('четвертый положительный элемент массива d[', n, ']=', d[n]);
end.
var a: array[1..20] of integer;
i: integer;
k: integer;
begin
randomize;
for i:= 1 to 20 do a[i] := random(100) + 1;
k := 0;
for i:= 1 to 20 do begin
writeln(a[i]);
if a[i] > 50 then inc(k);
end;
writeln();
writeln(k);
end.
Вроде вывод и ввод получается спирт
1)
1) Но ты учти, что массив заполняется рандомна и числа в промежутке от 0 до 100, если хочешь больше, то анологию надеюсь понял
var a:array [1..10] of integer;i,k,f:integer;beginfor i:=1 to 10 do begina[i]:=random(101);end;write (a,' ');
writeln;k:=0;f:=0;
for i:=1 to 10 do beginif a[i]=3 thenk:=k+a[i];if (a[i]>9) and (a[i]<101) thenf:=a[i] mod 10;if f=3 thenk:=k+a[i];end;writeln (k);end.