Напишите самый простой вариант, без массивов с цикла! (первый год изучения паскаля) напишите программу, которая в последовательности целых чисел определяет разность максимального и минимального чисел. программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность) . количество чисел не превышает 1000. введённые числа по модулю не превышают 30 000. программа должна вывести одно число: разность максимального и минимального чисел.

273

296

Посмотреть ответы 2

Ответы на вопрос:

Nottyt

Информатика

4,6(98 оценок)

program juliavanina; uses crt; var r,min,max: real; k: integer; begin writeln('*** alphaues is ***'); writeln('*** ok ***'); min: =0; max: =0; k: =0; r: =1; writeln('введите ненулевое число, не превышающее 30000 по модулю'); writeln('(или введите 0 для конца последовательности) '); while (r< > 0) and (k< 1000) do begin write('ввод: '); readln (r); if abs(r)< 30000 then begin if min> r then min: =r; if max< r then max: =r; k: =k+1; end else begin writeln ('вы ввели слишком большое по модулю число'); writeln ('это число не будет учтено'); end; end; writeln(); writeln('всего введено ',k-1,' чисел'); writeln('разность min и max составляет ',max-min); end.

проверено - работает на паскаль авс