Задание:
Заполнить одномерный массив произвольной размерности случайными числами из промежутка [-300; 300] и вывести его на экран в строчку, с именем каждогоэлемента массива и его индексом. Обнулить все элементы кратные 3, но не кратные 5 и вывести измененный массив на экран
Решение:
Program help; Uses Crt; Const n=10*Размер массива*) Var a: Array[1… n] of Integer*Массив с числами*) i: Integer; BeginRandomize; 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.
Знаете другой ответ?