profile
Опубликовано 5 лет назад по предмету Информатика от askobkina00

определить максимальное значение среди положительных элементов массива

  1. Ответ
    Ответ дан Issenpilon
    var
    i,max:integer;
    a: array [1..10] of integer;
    begin
    writeln('Введите числа');
    for i:=1 to 10 do
    read(a[i]);
    max:=a[1];
    for i:=1 to 10 do
    begin
    if max<a[i] then     
    max:=a[i];
    end;
    writeln('max = ', max);
    end.