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

1 Январь 0001



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

  • 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.






Информатика

Комментарии закрыты.