Задача 21 Урок 15
Primary tabs
Даны два массива по 20 элементов каждый (заполните случайными числами, так чтобы среди элементов массива при очередном запуске программы могли встретиться и отрицательные и положительные числа).
Сравните каждый 3-ий элемент 1-ого массива с каждый 2-ым элементов 2-ого массива - сравнение проводите пока не закончится та выборка, которая короче.
type Arr=array [1..20] of integer; var a,b:arr; i,j:integer; procedure randm(var c: Arr); var min, max, i: integer; begin randomize(); min:=-10; max:=10; for i:=low(c) to high(c) do c[i]:= min+random(max-min+1); end; begin randm(a); randm(b); i:=0; j:=0; While i<=15 do begin i+=3; j+=2; if a[i]<>b[j] then if a[i]>b[j] then writeln(a[i],' bolshe ',b[j]) else writeln(a[i],' menshe ',b[j]); end; readln(); end.
- Log in to post comments
- 178 reads