НИ ЧЕГО НЕ ПОНИМАЮ, ЗАВТРА НАДО СДАТЬ, ПРОШУ, ПОМОГИТЕ! ИНФОРМАТИКУ НЕ ПОНИМАЮ, И…

Question

75

НИ ЧЕГО НЕ ПОНИМАЮ, ЗАВТРА НАДО СДАТЬ, ПРОШУ, ПОМОГИТЕ! ИНФОРМАТИКУ НЕ ПОНИМАЮ, И ТЕМА НОВАЯ. ВВЕСТИ С КЛАВИАТУРЫ МАССИВ ИЗ ДВАДЦАТИ ЦЕЛЫХ ЧИСЕЛ, ОБНУЛИТЬ ВСЕ ОТРИЦАТЕЛЬНЫЕ ЭЛЕМЕНТЫ, ВЫВЕСТИ МАССИВ НА ЭКРАН, ПОМЕНЯТЬ МЕСТАМИ ПЕРВЫЙ И ДВАДЦАТЫЙ ЭЛЕМЕНТ, ВЫВЕСТИ МОДИФИЦИРОВАННЫЙ МАССИВ. Ну пожалуйстаа

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

ответить

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

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

uskoritel · Accepted Answer

35

uskoritel

23 февраля 2023

Var a: array[1… 20]of integer; i, t: integer; begin for i: =1 to 20 do begin read (a[i]); if a[i] < 0 then a[i]: =0; end; for i: =1 to 20 do write (a[i], '); t: =a[1]; a[1]: =a[20]; a[20]: =t; for i: =1 to 20 do write (a[i], '); end.

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

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

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

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