Написать программу осуществляющую поиск в одномерном массиве a, состоящего из 20 элементов, заданных случайным образом элемента, равного 50. если такого нет, вывести на экран сообщение “такого нет”.

var a:array[1..20] of integer;

i,k: integer;

begin

for i:=1 to 20 do

begin

a[i]:=random(51)+25;

write (a[i],' ')

end;

writeln;

for i:=1 to 20 do

if a[i]=50 then

begin

writeln (i,' элемент = ',a[i]);

k:=k+1

end;

if k=0 then writeln ('Такого нет')

end.

Смотри картинку

Объяснение:

Крестик - начало слова, стрелка - конец.

Абак - счётные доски для вычислений в Древней Греции, Древнем Риме, Древнем Китае и т.д.

Арифмометр - настольная или портативная механическая вычислительная машина.

Перфокарта - носитель информации. Тонкий картон с отверстиями или без них в определённых местах.

Транзистор - полупроводниковое устройство, которое используется для усиления, генерации и преобразования электрических сигналов. Транзисторы заменили вакуумные лампы в большинстве электронных устройств, свершив революцию в создании интегральных схем и компьютеров.

ЭНИАК – первая электронная вычислительная машина.

Бэббидж Чарлз - изобретатель первой аналитической вычислительной машины.

Лавлейс Ада - написала первые программы для аналитической вычислительной машины Беббиджа.

Лейбниц - предложил двоичную систему счисления, автор первой механической счётной машины производившей сложение, вычитание, умножение и деление чисел.

Возняк Стив - один из основателей компании Apple. Разработал первый массовый домашний компьютер и первый массовый персональный компьютер.

Холлерит Герман - создатель электрической статистической табулирующей системы (оборудования для работы с перфокартами).

Непер Джон - изобретатель логарифмов, для их вычисления он предложил устройство под названием «палочки Непера».

Шиккард Вильгельм - придумал «Считающие часы», первый арифмометр, умевший выполнять четыре арифметических действия.

Паскаль Блез - автор первой механической счётной машины, выполнявшей сложение и вычитание чисел. (Паскаль - один из наиболее известных языков программирования.)

Лебедева Сергей - под его руководством была создана МЭСМ (малая электронная счётная машина).

{с клавиатуры вводится число до тех пор, пока не будет введено 3-х значное, сумма первых двух цифр записывается в a, сумма десятков и единиц - в b. Сравнивается какое из них больше и выводится в порядке возрастания}
Uses Crt;
var
a,c,b:integer;
begin
   ClrScr;
      repeat
          writeln('INPUT 3-x znachoe');
           readln(b);
      until (b>=100)and(b<=999);
a:=b div 100+(b div 10)mod 10;
c:=(b div 10)mod 10+b mod 10;
     if a<c then
         writeln(a,c)
else
         writeln(c,a);
Readkey;
end.