profile
Опубликовано 6 лет назад по предмету Информатика от Юлия1234567898765432

дан массив вывести на экран индексы тех элементов значения которых равны числу м

  1. Ответ
    Ответ дан appleseen
    Program index;
    Uses crt;
    Var A: array [1..10] of integer;
    i,m: integer;
    Begin clrscr;
    Writeln ('Введите элементы массива');
    for i:=1 to 10 do
    read (a[i]);
    Writeln ('Введите число m');
    Readln (m);
    for i:=1 to 10 do
    begin
    if a[i]=m then
    Write (i,' ');
    end;
    readln;
    readkey;
    end.
    1. Ответ
      Ответ дан appleseen
      можешь выбрать другой тип переменных и другое количество элементов.
Самые новые вопросы