68

Дан массив, состоящий из 20-ти целых чисел. Выяснить, на сколько максимальный…

20 февраля 2023

Дан массив, состоящий из 20-ти целых чисел. Выяснить, на сколько максимальный элемент превосходит минимальный: 3 помогите, котаны: 3 нужна программа в паскале

категория: информатика



46

Var a: array [1… 20] of integer; i,max,min,r: integer; beginmax: =0; min: =24000; for i: =1 to 20 doreadln (a[i]); for i: =1 to 20 doif a[i]max then max: =a[i]; r: =max-min; writeln; writeln (r); readln; end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...