dsnewline
?>

Дан массив 5, 8, 3, 7, 9, 11, 3 поменяйте местами элемент 11 с элементом 8

Информатика

Ответы

inulikb

var

 a: array [1..7] of integer := (5, 8, 3, 7, 9, 11, 3);

 tmp, i: byte;

begin

 writeln('Дан массив: ');

 for i := 1 to 7 do write(a[i]:4);

 writeln;

 tmp := a[6];

 a[6] := a[2];

 a[2] := tmp;

 writeln('Массив после замены: ');

 for i := 1 to 7 do write(a[i]:4);

 writeln;

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Дан массив 5, 8, 3, 7, 9, 11, 3 поменяйте местами элемент 11 с элементом 8
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

annaan-dr582
Irina_Nevretdinova1630
Anna_Kamil
lovely138887
iburejko7
Дмитрий_Владимирович1162
Дмитрий_Пергамент669
Даниил247
ikavto6
Olgachalova111
Kashirina
Look7moscow
olesya-cat8601
MislitskiiSergei1403
Anna Artem