Вывести на экран все отрицательные элементы массива кратные 13

14.02.2012, 18:42. **Показов** 3709. **Ответов** 1

Студворк — интернет-сервис помощи студентам

В эту тему я плохо "въехал", массивы и интервалы с ними, вопщем прошу написать ответ такой задачи:
создать линейный массив из 13-ти случайных чисел в интервале от - 666 до 666 и вывести на экран все минусовые элементы этого массива кратны 13
Буду благодарен, спасибо!

@Ev[G]eN · 14.02.2012, 21:47

Pascal

const
 n = 13;
var
 arr: array[1..n] of integer;
 i: integer;
begin
 writeln('Массив: ');
  for i:=1 to n do
   begin
    arr[i]:=random(-666, 666);
    write(arr[i], ' ');
   end;
 writeln;
 writeln('Отрицательные элементы, кратные 13: ');
  for i:=1 to n do
   if (arr[i] < 0) and (arr[i] mod 13 = 0) then write(arr[i], ' ');
end.

DEDULY
		1
	Вывести на экран все отрицательные элементы массива кратные 13 14.02.2012, 18:42. Показов 3709. Ответов 1 Метки нет (Все метки) В эту тему я плохо "въехал", массивы и интервалы с ними, вопщем прошу написать ответ такой задачи: создать линейный массив из 13-ти случайных чисел в интервале от - 666 до 666 и вывести на экран все минусовые элементы этого массива кратны 13 Буду благодарен, спасибо!

Опции темы

Вывести на экран все отрицательные элементы массива кратные 13

Решение