Вопрос Паскаль программирование (Я ТУПОЙ )

Регистрация
28 Сен 2013
Сообщения
77
Репутация
0
Спасибо
0
Монет
0
Описать массив с именем 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.
 
Назад
Сверху