Головна » Статті » Pascal » Приклади програм
Приклад пошуку числа в одновимірному масиві Pascal
program babay;
uses crt;

var a:array [1..10] of integer;
    i, x:integer;
    b:boolean;
    c:real;
begin
  clrscr; {чистимо екран}
  randomize; {}

  for i:=1 to 10 do a[i]:=random(20); {заповняємо масив цiлими числами вiд 1 до 20}
  write('Searched number: ');
  readln(x); {вводимо шукане число}
  i:=1;
  b:=false;

  for i:=1 to 10 do {перевiряємо, чи є шукане число у масивi, чи нi}
  begin
    if(a[i]=x) then b:=true;
  end;
  {виводимо результат перевiрки}
  if (b) then writeln('This number is existing here')
  else writeln('This number is not existing here');
  {просимо вводу значення, щоб програма не закрилася зразу}
  readln(c);
end.
Категорія: Приклади програм | Додав: Lord_Adwond (13-05-2018) | Автор: Lord_Adwond
Переглядів: 143 | Теги: пошук у масиві, масиви, одновимірний масив, Перегон Новая Бавария - разъезд Ком, Pascal, одновимірні масиви, пошук | Рейтинг: 0.0/0
Всього коментарів: 0
Увійдіть:
avatar