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

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

Question

Информатика

Нюня

2 июля, 01:35

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

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

+1

Ответы (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 на величину последнего элемента массива. Написать фрагмент программы.