Установите соответствие между датами в левой колонке и событиями в правой. 1492 г. создание первого компьютера 1961г. создание первого отечественного компьютера 1957 г. открытие радиосвязи. 1946г. первый полет человека в космос. 1951г. принятие христианства на руси 988г. первое упоминание в летописи о москве. 1895г. начало великой отечественной войны. 1941г. запуск первого искусственного спутника земли 1147г. открытие колумбом америки.

988-принятие христианства на руси

1147-первое упонминанеи о летописи в москве

1492-открытие колумбом америки

1895-открытие радиосвязи

1941-начало вов

1946-создание первого компьютера

1951-создание первого отечественного компьютера

1957-запуск первогоискусственного спутника земли

1961-первый полёт человека в космос

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Program kolco; uses crt; var r1, r2: real; begin write('введите внешний радиус кольца '); readln(r1); write('введите внутренний радиус кольца '); readln(r2); write('площадь кольца равна ', 3.14*(r1*r1-r2*r2)); readln; end. program triangle; uses crt; var k1, k2: real; begin write('введите длину первого катета '); readln(k1); write('введите длину второго катета '); readln(k2); writeln('периметр треугольника равен ', sqrt(k1*k1+k2*k2)+k1+k2); write('площадь треугольника равна ', 0.5*k1*k2); readln; end.

A[i]:=random(20)-10;

while (i>0)

if i<>0

Объяснение

Ошибка A[i]:=random(21); Твой диапазон [0;20]

Исправление A[i]:=random(20)-10;

Дальше можно находить элемент в массиве по разному, можно все элементы проверить, счётчик дойдёт до нуля - программа выведет "Не найден!", если счётчик не равен нулю, значит хотя бы 1 значение х в массиве было найдено.

Ошибка while (i<=N)

Исправление while (i>0)

Ошибка if i<=N

Исправление if i<>0

Условие (i<=N) выполняется всегда, поэтому оно вообще не нужно