Задача Pascal, массивы

1) В массиве А[100] уменьшить все числа кратные 7 на величину последнего элемента массива. Написать фрагмент программы.

Question

Информатика

Ника

12 апреля, 20:42

Задача Pascal, массивы

1) В массиве А[100] уменьшить все числа кратные 7 на величину последнего элемента массива. Написать фрагмент программы.

+4

Ответы (1)

Знаете ответ?

Ян · Answer 1

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

begin

for var i : = 1 to 100 do begin

a[i] : = random (1, 100) ;

write (a[i] + ' ') ;

end;

writeln;

for var i : = 1 to 100 do begin

if a[i] mod 7 = 0 then

a[i] - = a[100];

write (a[i] + ' ') ;

end;

end.

Задача Pascal, массивы1) В массиве А[100] уменьшить все числа кратные 7 на величину последнего элемента массива. Написать фрагмент программы.

Задача Pascal, массивы

1) В массиве А[100] уменьшить все числа кратные 7 на величину последнего элемента массива. Написать фрагмент программы.