Задан массив из 10 целых чисел. Замените все положительные элементы данного…

Question

90

Задан массив из 10 целых чисел. Замените все положительные элементы данного массива его максимальнымэлементом.

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

voytsv · Accepted Answer

40

voytsv

28 августа 2022

var a: array[1… 10]of integer; i,max: integer; beginfor i: =1 to 10 do readln (a[i]); max: =a[1]; for i: =2 to 10 do if max0 then a[i]: =max; writeln; for i: =1 to 10 do write (a[i],'); end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: