Регистрация
Aidanok1
04.11.2022 19:39
Информатика
Есть ответ 👍

РЕШИТЬ КРОССВОРД ПО ИНФОРМАТИКЕ! 5 КЛАСС​

271
370
Посмотреть ответы 2

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

saha1710
saha1710
4,8(32 оценок)

в первом ответе градиент

hshgahahah
hshgahahah
4,7(50 оценок)

uses crt; var n,i,k,k1,m,min,max: integer; a: array[1..1000] of integer; beginrandomize; read(n); for i: =1 to n do begin a[i]: =random(101)-50; if max< a[i] then begin k: =i; max: =a[i]; end; if min> a[i] then begin k1: =i; min: =a[i]; end; write(a[i],' '); end; writeln; m: =a[k]; a[k]: =a[k1]; a[k1]: =m; for i: =1 to n do write(a[i],' '); end.

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