Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 180419
23.10.2010, 00:49
0.00 руб.
0 2 1
Компьютеры Программирование
Здравствуйте, уважаемые эксперты!
Помогите, пожалуйста, решить задачу:

Создать случайным образом одномерный массив целых чисел
Вывести на экран номера всех элементов, которые не делятся на 7.

(пользуюсь программой ABC)

Обсуждение

Неизвестный
23.10.2010, 01:57
общий
25.10.2010, 03:48
это ответ
Здравствуйте, verona!

Поскольку не оговорено заранее, пусть у нас будет массив из 20 чисел, числа - от 10 до 100

Код:
program massiv; 
Uses Crt;
var  
  a:array[0..19] of integer;
  i: integer;
begin
    clrscr; { очищаем экран }
    randomize; { запускаем генератор случайных чисел }
    { формируем массив }
    for i:=0 to 19 do
    begin
       a[i]:=10+random(90);
       if (a[i] mod 7) > 0 then { проверяем остаток от деления на 7 }
          write(i:3);
    end;
end.
давно
puporev
Профессор
401888
1232
23.10.2010, 09:16
общий
cls; { очищаем экран }

Если имелось ввиду clrscr; то для этого нужно подключить модуль
uses crt;
В Паскаль АВС это все равно не обязательно.
write(a[i]);

Если устраивает вывод массива так
1203212652264146, то можно и так, но лучше
write(a[i],' ');//через пробел
Разрешите уж поправить код.

Код:
program massiv;
uses crt;//для открытия отдельного окна
const nmax=100;
var a:array[1..nmax] of integer;
    n,i: integer;
begin
randomize; { запускаем генератор случайных чисел }
{ формируем массив }
repeat
write('Введите размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=random(10)+90;
  write(a[i],' ');
 end;
writeln;
writeln('Номера элементов массива, не кратных 7:');
for i:=1 to n do
if a[i] mod 7<>0 then write(i,' ');//не элементы, а номера!
end.
Форма ответа