Описать массив с именем MM, состоящий из 11 элементов целого типа . Сформируйте его при помощи датчика случайных чисел (от 3 до 100 ) . вывести элементы массива не кратных 7
const n=11; var MM:array [1..n] of integer; i:integer; begin writeln; randomize; for i:=1 to n do begin MM:=random(98)+3; write(MM:5) end; writeln; for i:=1 to n do if (i mod 7<>0) then write(MM:5); end.
На данном сайте используются файлы cookie, чтобы персонализировать контент и сохранить Ваш вход в систему, если Вы зарегистрируетесь.
Продолжая использовать этот сайт, Вы соглашаетесь на использование наших файлов cookie.