Регистрация
Войти
Стать экспертом Правила
Информатика

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

ОТВЕТЫ
опуская объявления переменных и массива, а также ввод значений массива и вывод результатов, сама задача решается так

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]; //прибавляем его к сумме

  1. можете подробно написать?
851
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам