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

Одновимірний масив Х(12) елементів дійсних
чисел. Знайти найбільший додатний елемент і найменший від’ємний елементи масиву.



  1. Ответ
    Ответ дан Leksandr123
    Program qwe;
    Uses crt;
    var x:array[1..12] of real;
    i:integer;
    min,max:real;
    begin
    clrscr;
    Writeln('Введите елементы масыву');
    for i:=1 to 12 do
    begin
    Readln(x[i]);
    end;
    max:=x[1];
    min:=x[1];
    For i:=1 to 12 do
    begin
    if max<x[i] then max:=x[i];
    if min>x[i] then min:=x[i];
    end;
    Writeln('Max: ',max:2:2);
    Writeln('Min: ',min:2:2);
    readkey;
    end.

Самые новые вопросы