Задать вопрос
27 июля, 00:20

Составить программу, которая формирует массив из 5 случайных чисел от - 10 до 15.

а) найти элементы равные 1.

б) найти индекс нечетных элементов.

в) Найти количество положительных элементов.

+4
Ответы (1)
  1. 27 июля, 00:41
    0
    Const n=5;

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

    k, i : integer;

    begin

    Randomize;

    for i:=1 to n do

    begin

    a[i]:=random (26) - 10;

    write (a[i],' ') ;

    end;

    writeln;

    writeln ('элементы равные 1 имеют номера:') ;

    for i:=1 to n do if a[i]=1 then write (i:3) ;

    writeln;

    writeln ('индексы нечетных элементов:') ;

    for i:=1 to n do if a[i] mod 20 then write (i:3) ;

    writeln;

    k:=0;

    for i:=1 to n do if a[i]>0 then k:=k+1;

    writeln ('количество положительных элементов=', k) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Составить программу, которая формирует массив из 5 случайных чисел от - 10 до 15. а) найти элементы равные 1. б) найти индекс нечетных ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы