Регистрация
maksimsavelev1
13.03.2020 18:01
Информатика
Есть ответ 👍

Тип 19
Даны числа 21, 16, 7, 12, 18, 3, 8, 13, 11, 17; нужно вывести s
s:=0
n:=4
For i:=0 to 9 do
if A[i]<= A[n] then begin
s:=s+A[i]
t:=A[i]
A[i]:=A[n]
A[n]:=t
n:=i mod 3
end
ответ есть, нужно подробное объяснение, особенно что делается с

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

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

рана7
рана7
4,8(1 оценок)
Program n1; procedure st(n: longint; k: integer ); var i,m : longint; begin m: =n; for i: =1 to k-1 do n: =n*m; writeln(n); end; var a,b: integer; begin readln(a,b); if (a> =1) and (b< =1000) then st(a,b); end.

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