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

"Массив из 7 случайных чисел на отрезке от 10 до 30.Найти номера элементов ,значения которых кратны 5". Работа 9 класса. 

  1. Ответ
    Ответ дан DagotPavel
    program znanija_com;
    type
      tArray = array[1..7] of integer;
    var
      arr : tArray;
      i : integer;
    begin
      randomize;
      writeln ('Исходный массив:');
      for i:=1 to 7 do begin
        arr[i] := random(30-10+1)+10;
        writeln(i, ' - элемент равен ', arr[i]);
      end;
      for i:=1 to 7 do begin
        if (arr[i] mod 10 = 5) or (arr[i] mod 10 = 0) then  writeln(i, ' - кратный 5 ');
      end;
      readln();
    end.

    1. Ответ
      Ответ дан ritvinskayavik
      Спасибо огромное :)
    2. Ответ
      Ответ дан DagotPavel
      Обращайся)
Самые новые вопросы