Найти значения максимального из элементов массива, которые имеют четные номера.

@aleksandrdss · Регистрация: 08.12.2008

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

В массиве, вещественных чисел, 20 элементов. Найти значения максимального из элементов массива, которые имеют четные номера.

@Alto · 19.12.2008, 14:46

Pascal

uses Crt;
const
    LB=1;
    HB=20;
var
    mass: array [LB..HB] of real;
    i: integer;
    MaxEvenNumber: real;
 
begin
    ClrScr;
    Randomize;
    for i:=LB to HB-1 do
        begin
            mass[i]:=Random(51);
            write(mass[i]:6:2);
        end;
    mass[HB]:=Random(51);
    writeln(mass[HB]:6:2);
    writeln;
 
    for i:=LB to HB do
        begin
            if not odd(i) and (MaxEvenNumber<mass[i]) then
                MaxEvenNumber:=mass[i];
        end;
 
    writeln('The maximal number from even numbers of array: ',MaxEvenNumber:4:2);
    writeln;
    write('For ending press <ENTER>');
    readln;
end.

@aleksandrdss 0 / 0 / 0 Регистрация: 08.12.2008 Сообщений: 6
		1
	Найти значения максимального из элементов массива, которые имеют четные номера. 19.12.2008, 14:20. Показов 1806. Ответов 1 Метки нет (Все метки) В массиве, вещественных чисел, 20 элементов. Найти значения максимального из элементов массива, которые имеют четные номера. 0

	19.12.2008, 14:46

Опции темы

Найти значения максимального из элементов массива, которые имеют четные номера.

Решение