Составить программу в Паскале:Из n введенных чисел найти максимальное значение с...

August 2022 2 7 Report

Составить программу в Паскале:
Из n введенных чисел найти максимальное значение среди положительных элементов.

ManulTheLiar Текст программы в документе.

3 votes Thanks 2

Shomr Program abc;
type
mas = array[0..1000] of integer;
var
a: mas;
i, n, max: integer;
begin
WriteLn('Введите кол-во эл-тов массива:');
  ReadLn(n);
for i := 1 to n do
begin
WriteLn('Введите значение элемента №', i);
ReadLn(a[i]);
end;
WriteLn('Все элементы массива имеют значение');
max := -1;
for i := 1 to n do
if a[i] > max then
max := a[i];
    if max <> -1 then
   Writeln('Максимальное значение положительного элемент = ', max)
else Writeln('Положительных элементов нет');
   ReadLn;
end.

3 votes Thanks 4

Answers & Comments

uvelichit na 4 vse elementy v pervoj polovine massivaa schitat chto v massive ch

1 vozvesti v kvadrat vse elementy massiva a razmer massiva i znacheniya elem

sostavit programmu v paskalev gruppe opredelit samogo vysokogo malchika i sam

sostavit programmu v paskalenapechatat luchshij rezultat zaplyva sredi 8 uchastn

na bolshoj korobke nakleeny bukvy t o r t malenkij kolya otorval dve bukvy9b85b877d6781fcadf185bb16ffa7940 61015

v promyshlennosti natrij poluchayut elektrolizom rasplava povarennoj soli kakuyu ma

kakoj obemvodoroda numozhno vydelit iz vody pri pomoshi 069g natriya spa

na bolshoj korobke nakleeny bukvy t o r t malenkij kolya otorval dve bukvy

рекомендуемые вопросы

Helpful Links

Helpful Social