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

Question

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

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.