
Adam
5 год назад
плиз Пожалуйста посчитайте первые 3 задания на массивы на языке паскаль

ОТВЕТЫ

Vasko
Oct 24, 2020
опуская объявления переменных и массива, а также ввод значений массива и вывод результатов, сама задача решается так
min_a := a[1]; //сначала минимальным считается первый элемент
for i := 2 to 50 do
if min_a > a[i] then //сравниваем текущий с минимальным
min_a := a[i]; //запоминаем новый минимальный
max_a := a[1];
for i := 2 to 50 do
if max_a < a[i] then
max_a := a[i];
sum := 0; //сначала сумма 0
for i := 1 to 50 do
if a[i] > 0 then //если число положительное
sum := sum + a[i]; //прибавляем его к сумме
min_a := a[1]; //сначала минимальным считается первый элемент
for i := 2 to 50 do
if min_a > a[i] then //сравниваем текущий с минимальным
min_a := a[i]; //запоминаем новый минимальный
max_a := a[1];
for i := 2 to 50 do
if max_a < a[i] then
max_a := a[i];
sum := 0; //сначала сумма 0
for i := 1 to 50 do
if a[i] > 0 then //если число положительное
sum := sum + a[i]; //прибавляем его к сумме
- можете подробно написать?
851
Смежные вопросы: