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

Создать программу в Паскале:
Дан массив целых чисел х<=20
Найти минимальное и максимальное значения
Хелп! Срочно надо!!!

  1. Ответ
    Ответ дан Sovinn

    program kurs_v;

    const x=20;

    var n:integer;

    A:array[1..x] of integer;

    i,min:integer;

    begin

    min:=A[1];

    for i:=2 to N do

    begin

    If A[i]<min then min:=a[i];

    end;

    write(min);

    end.

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