profile
Опубликовано 5 лет назад по предмету Информатика от MikeRUS

Задача: дан массив из 10 элементов, генерированных случайным образом(промежуток от -40 до 60). Вывести все элементы массива, оканчивающиеся на 5 и делящиеся на 15.

Ребят помогите плиз, очень надо!

  1. Ответ
    Ответ дан irkayaa

    program massiv;
    var a:array[1..10] of integer;
    i:integer;
    begin
    randomize;
    for i:=1 to 10 do begin
    a[i]:=random(100)-40;
    if ((a[i] mod 10)=5)and((a[i] mod 15)=0)then writeln(a[i]) else writeln('òàêèõ ýëåìåíòîâ íåò');
    end;end.

     

     

     

     

     

     

     

     

     

Самые новые вопросы