Регистрация
Bandit009
15.01.2021 19:22
Информатика
Есть ответ 👍

Водномерном массиве а(10)найти значение и индекс наибольшего из отрицательных элементов. pascal abc

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

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

ksusha6060606
ksusha6060606
4,7(85 оценок)
Program n1; var a: array[1..10] of integer; i,im,om: integer; begin write('исходный массив: '); a[1]: =random(21)-10; write(a[1],' '); om: =a[1]; for i: =2 to 10 do  begin a[i]: =random(21)-10; write(a[i],' '); if (a[i]< 0) and (a[i]> om) then begin om: =a[i]; im: =i; end; end; writeln; writeln('максимальный среди отрицательных: a[',im,']=',om); end.
karina694
karina694
4,4(18 оценок)
Var   a, med : real; begin   readln(a);   med: = sqrt(sqr(a) - sqr(a/2));   writeln(med); end.

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