Задать вопрос
7 марта, 23:43

Объясните что этот оператор делает. TurboPascal

for i:=1 to 9

do begin

k:=i;

for j:=i+1 to 10 do

if A[j]
Alf:=A[k];

A[k]:=A[i];

A[i]:=Alf;

end;

+5
Ответы (1)
  1. 7 марта, 23:59
    -1
    Я хз парень удачи надеюсь решишь на5
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Объясните что этот оператор делает. TurboPascal for i:=1 to 9 do begin k:=i; for j:=i+1 to 10 do if A[j] ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
1. Соотнесите названия операторов, служебных слов, функций и их написание на языке Paskal: 1. Оператор ввода данных a) Begin, End 2. Условный оператор в неполной форме b) Sqrt (X) 3. Оператор цикла с предусловием c) N div M 4.
Ответы (1)
Цикл с параметром и шагом - 1 объявляется с использованием конструкции a) for i:=i1 downto i2 do begin ... end; b) repeat begin ... end until (выражение_условие) ; c) for i:=i1 to i2 do begin ... end; d) if (выражение_условие) begin ...
Ответы (1)
Дано три цифры вывести все возможные трехзначные числа пишет ожидался оператор begin program: adf; begin var a, b, c : = in tege; begin writeln ('write') ; read (a, b, c) ; writeln (a, b) ; writeln (b, a) ; writeln (a, c) ; writeln (c, a) ;
Ответы (1)
Помогите найти ошибку (Информатика, Паскаль). var s, k, a:integer; Begin s:=0; k:=0; Read (a) ; while a0 do Begin if a mod 8=0 then Begin s:=s+a; k:=k+1; end; Readln (a) ; end; var y:real; begin y: = s/k; Read (s) ;
Ответы (1)
Uses crt; var n, s, s1, s2, k:integer; begin writeln ('Введите число: ') ; readln (n) ; s:=0; s1:=0; s2:=0; while n>0 do begin inc (k) ; if k mod 2 = 0 then begin s:=s+n mod 10; n:=n div 10; end else begin s1:=s1+n mod 10; n:=n div 10; end;
Ответы (1)