Задать вопрос
6 декабря, 16:07

Задача решается в паскале. В одномерном массиве найти сумму всех элеметнов кроме мах и тип

найти:

1) сумма элемента массива.

2) мах в массиве.

+2
Ответы (1)
  1. 6 декабря, 18:37
    0
    A:array[1 ... 10000] of integer;

    i, k, max, min, s:integer;

    begin

    readln (n) ;

    for i:=1 to n do

    readln (a[i]) ;

    max:=a[1];

    min:=a[1]{"тип" я буду принимать за минимальное число. если имелось ввиду что-то другое-уберете}

    for i:=1 to n do

    if max
    if min>a[i] then min:=a[i];

    for i:=1 to n do

    s:=s+a[i];

    s:=s-max-min;

    writeln (s) ;

    readln;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Задача решается в паскале. В одномерном массиве найти сумму всех элеметнов кроме мах и тип найти: 1) сумма элемента массива. 2) мах в ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике