Проект має головну форму Form1 (Оцінки) та форми з назвами Form2 (І семестр), Form3 (ІІ семестр), Form4 (Рік). Яка форма стане активною в результаті дії кнопки з кодом

211

410

Посмотреть ответы 1

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

Единорог20001

Информатика

4,4(80 оценок)

Var a: array[1..5] of real; b,c: integer; max: real; begin c: =0; max: =-100; writeln('введите числа'); for b: =1 to 5 do begin readln(a[b]); if (a[b]< 0)and (a[b]> max) then begin max: =a[b]; c: =c+1; end; end; if c> 0 then writeln('максимум среди отрицательных чисел равняется ',max) else writeln('нет отрицательных чисел'); end.