Question

Дан массив из 10 чисел, сформированных случайным образом из диапазона от 0 до 190. Найти первый элемент, кратный 5, и заменить все элементы после него на число 100. Не учитывать случай, когда элемента, кратного 5, нет в массиве.​
Язык программирования - Pascal.

Answer 1

Программа:

Pascal:

var

 arr: array[1..10] of integer;

 i, k: integer;

begin

 for i := 1 to 10 do arr[i] := random(0,190);

 writeln(arr);  // генерируем и выводим массив

 

 for i := 1 to 10 do  

   if arr[i] mod 5 = 0 then begin

     k := i;  break

   end;  // определяем индекс первого числа, который кратен 5

 for i := k to 9 do arr[i + 1] := 100;  // заменяем все последующие числа на 10

 

 writeln(arr);

end.