Разгадай кросворд обработка текстовой информации ( )!

Объяснение:

Начало;

Ввод X, Y (они у нас уже есть в табл. 1 и 2 (к примеру, в 1 табл. X=9, Y=14));

X=Y (у нас X=9, Y=14; 9 не равна 14, а это значит мы идём по стрелочке "нет");

X>Y (9 не больше 14, идём по стрелочке "нет");

Y=Y-X (подставляем в формулу наши X, Y из табл. 1 и получаем Y=14-9=5);

Теперь переходим на новую строчку табл. 1. X остаётся прежним (9), а в Y пишем тот, что мы нашли (5). Начинаем всё заново.

X=Y (9 не равна 5, идём по стрелочке "нет");

X>Y (9 больше 5, а это значит мы идём по стрелочке "да");

X=X-Y (подставляем в формулу наши X, Y. Это уже будет X=9-5=4)

Теперь переходим на новую строчку табл. 1. X теперь 4, а Y остаётся  прежним (5). Начинаем всё заново.

Так проделываем каждый раз пока X не станет равно Y (в 1 табл. это 1=1).

1) program kolvo;

var k, maks, i:integer;

a:array[1..10] of integer;

begin

k:=0;

maks:=0;

for i:=1 to 10 do

begin

writeln('Введите чичло номер ', i);

readln(a[i]);

if a[i]>maks then maks:= a[i];

end;

for i:=1 to 10 do

begin

write(a[i], ' ');

if a[i]<maks div 2 then k:=k+1;

end;

writeln;

writeln('Количество чисел, что минимум в два раза меньше максимального числа в массиве ', k);

end.

2)program maks;

var k, maks, i:integer;

d:array[1..5] of integer;

begin

k:=0;

maks:=0;

for i:=1 to 5 do

begin

writeln('Введите чичло номер ', i);

readln(d[i]);

if d[i]>maks then begin maks:= d[i]; k:=i; end;

end;

writeln;

for i:=1 to 5 do write(d[i], ' ');

writeln;

writeln('Номер максималтного числа в массиве ', k);

end.