В программе обрабатывается одномерный массив с индексами от 0 до 9. Значения элементов равны 3; 11; 3; 13; 12; 5; 4; 15; 12; 7; соответственно а[0]=3 a [1]=11 и т.д. Определить значение переменной к после выполнения фрагмента программы k:=0; for i:=0 to 4 do if ( а[i]+a [9-i]) mod 2 <> 0 then begin k:=k+1; t:=а[9-i]; а[9-i]:=а[9-i-1] ; а[9-i-1] :=t end;

207

404

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

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

даниил740

Информатика

4,7(17 оценок)

//pascalabc.net (версия 3.1, сборка 1196 от 09.03.2016) const n=100; var a: array[1..n] of integer; i,k: integer; begin writeln('введите k'); readln(k); for i: =1 to k do begin if i mod 2 < > 0 then a[i] : = -i*7 else a[i]: =i*7; write(a[i]: 5); end; end.