Программа в паскале! напишите программу, которая в последовательности целых чисел определяет сумму максимального и минимального чисел . программа

Question

Информатика: Программа в паскале! напишите программу, которая в последовательности целых чисел определяет сумму максимального и минимального чисел . программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом ноль (ноль – признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введенные числа по модулю не превышают 30000. отдал все пункты что есть! !

Saxarok2018 · Answer

uses System;var ch,min,max,i:integer;begin cls; readln(ch);min:=ch;max:=ch; while(ch 0) dobegin readln(ch); if ((min ch) and (ch 0)) then min:=ch; if max ch then max:=ch; inc(i); if i 999 then break;end; writeln( max = , max); writeln( min= ,min); writeln( suma max + min = ,max+min);readln;end....

Популярные вопросы