59

Заполнить одномерный массив произвольной размерности случайными…

vlasov-konst 03 апреля 2023

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

категория: информатика

54

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.

пользователи выбрали этот ответ лучшим

Знаете другой ответ?
Другие вопросы по информатике

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...