Найти максимальный элемент массива из его элементов с нечетными номерами - Pascal ABC

Формулировка задачи:

Дан массив A размера N. Найти максимальный элемент из его элементов с нечетными номерами: A1, A3, A5, … , по значению кратный 7. Если таких нет – вывести сообщение об этом.

Код к задаче: «Найти максимальный элемент массива из его элементов с нечетными номерами - Pascal ABC»

textual
program pr;
const
  Csize = 100;
var
  a: array [1..Csize] of integer;
  i, n, max: integer;
  f:integer;
begin
  writeln('Введите размер массива');
  readln(n);
  for i := 1 to n do
  begin
    a[i] := random(100);
    write(a[i]:3);
  end;
  f:=0;
  max := a[1];
  for i := 1 to n do
    if (i mod 2 <> 0) and (a[i] mod 7 = 0) then
      if a[i] > max then
      begin
        max := a[i];
        f:=f+1;
      end;
      writeln;
      if f>0 then
      begin
  writeln('Максимальный элемент с нечётным индексом, кратный 7: ', max);
  end else writeln('Таких элементов нет');
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

8   голосов, оценка 4.250 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы