Задать вопрос
23 февраля, 03:02

Используя линейный массив выведите позицию элемента который в два раза больше первого в паскале

+4
Ответы (1)
  1. 23 февраля, 04:33
    0
    Const n=20;

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

    i, k:integer;

    begin

    Randomize;

    for i:=1 to n do begin

    a[i]:=random (51) ;

    write (a[i],' ') ;

    end;

    writeln;

    k:=0;

    for i:=2 to n do

    if a[i]=2*a[1] then k:=i;

    if k>0 then writeln ('k = ', k)

    else writeln ('Искомый элемент отсутствует') ;

    end.

    Пример:

    21 15 6 25 0 39 13 15 0 14 26 20 42 38 39 46 24 45 35 49

    k = 13
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Используя линейный массив выведите позицию элемента который в два раза больше первого в паскале ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы