program laba30;
uses crt;
 
var
   a,b,i: integer;
function lol(x: integer):boolean;
   var i: integer;
   begin
      if x=1 then lol:=false else
      for i:=2 to x-1 do
         if x mod i = 0 then lol:=false;
   end;
begin
   writeln('Введите A='); readln(a);
   writeln('Введите B='); readln(b);
   for i:=b downto a do
      if lol(i) and not odd(i) then write(i,' ');
   readln
end.

Сама задача: определить максимальные элементы списков L1 и L2.
Поменять местами найденные максимальные элементы в списках. Вывести порядковые номера найденных элементов, считая от начала списка.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

10.12.2012, 15:55

Ответы с готовыми решениями:

Определить максимальные элементы списков L1 и L2
Определить максимальные элементы списков L1 и L2. Поменять местами найденные максимальные элементы...

Определить максимальные элементы в векторах
С помощью подпрограммы с типизированными параметрами-значениями и параметрами-переменными,...

Подпрограммы: определить максимальные элементы в векторах
С помощью подпрограммы, находящей максимальный элемент в векторе, определить максимальные элементы...

Определить максимальные элементы и поменять их местами
Задание В произвольно заданных двух одномерных массивах определить максимальные элементы и...

	10.12.2012, 15:55

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

10.12.2012, 15:55

Помогаю со студенческими работами здесь

Определить максимальные элементы в матрице А и массиве В
Привет всем, не могли бы помочь с задачей : "Определить максимальные элементы в матрице А и массиве...

Определить максимальные элементы каждого столбца матрицы
Определить максимальные по значению элементы каждого столбца матрицы, напечатать их значения и...

Определить все максимальные элементы и их позиции в массиве
Определить все максимальные элементы и их позиции в массиве, а также сумму отрицательных элементов...

Определить максимальные элементы в каждом массиве и обменять их местами
Помогите решить задачу, буду благодарен. Даны два массива действительных чисел. Определить...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх