Дан массив из 10 элементов заполнить с клавиатуры: 1) вывести массив 2) вывести массив на экран 3) поменять местами 6 и 9 элемент массива 4) найти max элементов массива

Question

Информатика

Федор

1 ноября, 13:01

Дан массив из 10 элементов заполнить с клавиатуры: 1) вывести массив 2) вывести массив на экран 3) поменять местами 6 и 9 элемент массива 4) найти max элементов массива

+4

Ответы (1)

Знаете ответ?

Дарюха · Answer 1

1)

uses crt;

var B:array [1 ... 10] of real; i:integer;

begin

clrscr;

readln (B[i]) ;

writeln (B[i]) ;

end.

3)

uses crt;

var B:array [1 ... 10] of real; i:integer; v:real;

begin

clrscr;

readln (B[i]) ;

v:=B[6];

B[6]:=B[9];

B[9]:=v;

writeln (B[i]) ;

end.