Дан массив A размера N. Найти максимальный элемент из его элементов с нечетными номерами: A1, A3, A5, … .

@Ejik122 · Регистрация: 27.05.2010

Array12. Дан массив A размера N. Найти максимальный элемент из его элементов с нечетными номерами: A1, A3, A5, … .

@Shelovek · 27.05.2010, 19:43

Pascal

uses
    crt;
const
     lim=100;
var
   a:array[1..lim] of integer;
   i,j,n,max:integer;
begin
     writeln('wvedite razmernost massiva ');
     readln(n);
     writeln('wveite massiv razmerom ',n);
     for i:= 1 to n do
         read(a[i]);
     max:=a[1];
     for i:= 1 to n do
          begin
               if i mod 2<>0 then
                  if a[i]> max then
                     max:=a[i]
          end;
writeln('max element sredi neshetnih nomerov ravno ',max);
readkey
end.

@Ejik122 · 27.05.2010, 19:46 **[ТС]**

Большое спасибо

Сообщение от Shelovek

Pascal

uses
    crt;
const
     lim=100;
var
   a:array[1..lim] of integer;
   i,j,n,max:integer;
begin
     writeln('wvedite razmernost massiva ');
     readln(n);
     writeln('wveite massiv razmerom ',n);
     for i:= 1 to n do
         read(a[i]);
     max:=a[1];
     for i:= 1 to n do
          begin
               if i mod 2<>0 then
                  if a[i]> max then
                     max:=a[i]
          end;
writeln('max element sredi neshetnih nomerov ravno ',max);
readkey
end.

можно ещё блок схему, завтра просто курсач сдавать)

@Elstan · 27.05.2010, 19:52

Блок-схема

@Shelovek · 27.05.2010, 19:52

вот держи!

@Ejik122 1 / 0 / 0 Регистрация: 27.05.2010 Сообщений: 10
		1
	Дан массив A размера N. Найти максимальный элемент из его элементов с нечетными номерами: A1, A3, A5, … . 27.05.2010, 19:31. Показов 6796. Ответов 4 Метки нет (Все метки) Array12. Дан массив A размера N. Найти максимальный элемент из его элементов с нечетными номерами: A1, A3, A5, … . 0

Опции темы