13 июля, 20:33

Решить в Паскале

Определить содержит ли массив А[1 ... 20] случайное число Х, введеное с клавиатуры.

0
Ответы (1)
  1. 13 июля, 22:06
    0
    Program 1;

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

    X, i, k: integer;

    Begin

    Writeln ('введите элементы массива') ;

    For i:1 to 20 do

    Readln (a[i]) ;

    Writeln ('введите х=') ;

    Readln (x) ;

    For i:=1 to 20 do

    If x=a[i]

    Then k:=k+1;

    If k>0

    Then writeln ('да, содержит')

    Else writeln ('нет, не содержит') ;

    END.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Решить в Паскале Определить содержит ли массив А[1 ... 20] случайное число Х, введеное с клавиатуры. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы