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

СРОЧНО, ПОЖАЛУЙСТА, НАПИШИТЕ КТО-НИБУДЬ, НА ЗАВТРА НАДО, УМОЛЯЮ, ТОЛЬКО ПРАВИЛЬНО!!!Я УЖЕ 30 РАЗ ЭТО ЗАДАНИЕ ПОСЫЛАЮ, НАПИШИТЕ!!! КТО СМОЖЕТ, ТОЛЬКО ПРАВИЛЬНО! КТО, ЧТО СМОЖЕТ, НО НАДО ВСЕ, НА ЗАВТРА!!!

Решить в Паскале!

1.Дано массив из15 элементов. Найти максимальный  элемент массива и минимальный элемент массива. Узнать на сколько больше максимальный элемент минимального.

2. Дано массив из 15 элементов, заполнить массив  случайными числами, которые не больше 30 и найти минимальный элемент массива

  1. Ответ
    Ответ дан Franqik
    const nMax = 15;
    var
    a:array [1..nMax]  of integer;
    i,min,max:integer;
    begin
    min:=a[1];
    max:=a[1];
    for i:=1 to nMax do begin
    if a[i]>max then
    max:=a[i];
    if a[i]<min then
    min:=a[i];
    end;

    writeln('max-min=',max-min);

    end.

    2)

    const nMax = 15;
    var
    a:array [1..nMax] of integer;
    i,min:integer;
    begin
    min:=a[1];
    randomize;
    for i:=1 to nMax do
    a[i] = random(30);

    for i:=1 to nMax do
    if a[i]<min then
    min:=a[i];

    end.



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