Регистрация
Nastenka0003
15.09.2021 15:28
Информатика
Есть ответ 👍

Написать программу в turbo pascal найти 2 максимума из любой последовательности чисел

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

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

igoralekseev2
igoralekseev2
4,5(28 оценок)
Var ar: array[1..30] of integer; i,max,max2,maxp,maxi: integer; begin; randomize; writeln('array'); for i: =1 to 30 do begin; ar[i]: =random(1,100); write(ar[i]: 4); end; for i: =1 to 30 do if max< ar[i] then begin; maxp: =max; max: =ar[i]; maxi: =i; end; ar[maxi]: =maxp; for i: =1 to 30 do if max2< ar[i] then max2: =ar[i]; writeln; writeln('max1: ',max); writeln('max2: ',max2); end.
HelenToys
HelenToys
4,5(7 оценок)

Объяснение:

int main() {

   int x;

   int Z;

   scanf("%d", &x);

   if (x<1) {

       Z = x+3;

   } else {

       Z = 4*x;

   }

   }

   printf(Z);

   return 0;

}

Популярно: Информатика