Школы

Как написать программу???? Нужно в паскале

СС
Светлана Сокоушина
7
Вот программа, где массив формируется датчиком случайных чисел (а то скучно вводить 1000 целых чисел :))) PascalABC

const m = 1000;
Var Mas : array [1..m] of integer;
n, Mx : integer; b : boolean;
begin
Mx := -1*m; b := false;
Write (' Введите число элементов массива n = ');ReadLn (n);
WriteLn (' Исходный массив: ');
for var i := 1 to n do
begin Mas[i] := 1 + random (100); Write (Mas[i]:4); end;
for var i := 1 to n do
if (Mas[i] mod 4 = 0) then
if (Mas[i] > Mx) then
begin Mx := Mas[i]; b := true; end; WriteLn;
if b then WriteLn (' Максимальный кратный 4 элемент = ', Mx)
else WriteLn (' No...');
end.

Vika Неизвестно
Vika Неизвестно
73 229
Лучший ответ 
 program MaxMultipleOfFour; 

 

const 

  MAX_NUMBERS = 1000; 

  MAX_VALUE = 30000; 

 

var 

  numbers: array[1..MAX_NUMBERS] of integer; 

  count, i, maxMultiple: integer; 

  found: boolean; 

 

begin 

  write('Введите количество чисел в последовательности: '); 

  readln(count); 

 

  writeln('Введите числа:'); 

  for i := 1 to count do 

    readln(numbers[i]); 

 

  maxMultiple := 0; 

  found := false; 

 

  for i := 1 to count do 

  begin 

    if (numbers[i] mod 4 = 0) and (numbers[i] > maxMultiple) then 

    begin 

      maxMultiple := numbers[i]; 

      found := true; 

    end; 

  end; 

 

  if found then 

    writeln('Максимальное число, кратное 4: ', maxMultiple) 

  else 

    writeln('NO'); 

 

  readln; 

end.
Гаухар Абуталип
Гаухар Абуталип
966

Похожие вопросы