Дан массив из 10 элементов заполнить с клавиатуры: 1) вывести массив 2) вывести массив на экран 3) поменять местами 6 и 9 элемент массива 4) найти max
5-9 класс
|
элементов массива
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.
Другие вопросы из категории
Для носителей типа В сделали полные образы (файлы, объем которых строго равен максимальному объему носителя). Вычислите максимальное количество образов носителей типа В, данные которых можно полностью записать на два носителя типа А (образы не могут быть разбиты на части или сжаты). В ответе укажите целое число.
Задания внутри
Сделать только №2,3,5,7
Читайте также
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
лементов массива
есть ли в массиве одинаковые элементы и
вывести их на экран.
то поменять местами третий и пятый элементы, если третий элемент равен нулю, то увеличить оба эти элементы в 2 раза, иначе третий и пятый элементы сохраняют прежние значения.