Получите свидетельство
Вход
Написать программу, которая
- Создает и заполняет 3 массива из 10 целочисленных значений:
- массив A - через раздел констант, числами от 1 до 10 массив B - случайными числами, от 0 до 55 массив C - произвольными числами с клавиатуры
- массив A - через раздел констант, числами от 1 до 10
- массив B - случайными числами, от 0 до 55
- массив C - произвольными числами с клавиатуры
- Вычисляет сумму элементов массива А
- Находит наибольший элемент в массиве В
- Сортирует по возрастанию массив С
Все результаты должны быть выведены на экран одновременно!
![Program massiv; const a: array [1..10] of integer = (1,2,3,4,5,6,7,8,9,10); var b,c: array [1..10] of integer; i:integer; begin randomize; for i:=1 to 10 do b[i]:=random (56); for i:=1 to 10 do read (c[i]); for i:=1 to 10 do write (b[i],' '); end .](https://fsd.videouroki.net/html/2019/04/14/v_5cb331c239a13/img1.jpg)
Program massiv;
const a: array [1..10] of integer = (1,2,3,4,5,6,7,8,9,10);
var b,c: array [1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do b[i]:=random (56);
for i:=1 to 10 do read (c[i]);
for i:=1 to 10 do write (b[i],' ');
end .
Обобщение по теме "Массивы целых чисел" (81.85 KB)
0
348
22
Нравится
0
