Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Заполнить одномерный массив произвольной размерности случайными числами из промежутка [-300;300] и вывести его на экран в строчку, с именем каждого элемента массива и его индексом. Обнулить все элементы кратные 3, но не кратные 5 и вывести измененный массив на экран

Ответ оставил Гость

Program help;
Uses Crt;
Const n = 10; (* Размер массива *)

Var a : Array[1..n] of Integer; (* Массив с числами *)
i : Integer;

Begin
Randomize;
ClrScr;

Writeln(Массив: );

For i := 1 to n do
Begin
a[i] := random(601) - 300; (* Заполняем рандомными числами *)
Writeln(a[, i, ] = , a[i]); (* Выводим на экран *)

if (a[i] mod 3 = 0) and (a[i] mod 5 <> 0) then
a[i] := 0; (* Обнуляем числа кратные 3 и не кратные 5 *)
End;

Writeln(Массив после изменения: );

For i := 1 to n do
Writeln(a[, i, ] = , a[i]); (* Выводим на экран *)

End.