Предмет: Информатика,
автор: katenakozlova2000
В ПАСКАЛЕ.
1) Напишите программу, которая заполняет массив из 5 элементов случайными числами от 0 до 60 и выводит сумму первых трех элементов этого массива.
2)Напишите программу, которая заполняет массив из 20 элементов случайными числами от 0 до 50 и выводит сумму последнего и предпоследнего элементов этого массива.
Ответы
Автор ответа:
0
Ответ:
Program n3;
var q:integer;
a:array [1..5]of integer;
begin
for q:=1 to 5 do
a[q]:=random(60);
for q:=1 to 3 do
write(a[q],' ');
end.
Program n3;
var q:integer;
a:array [1..50]of integer;
begin
for q:=1 to 50 do
a[q]:=random(50);
for q:=49 to 50 do
write(a[q],' ');
end.
Объяснение:
antoxapantelee:
я исправил,сасбо
спасибо*
Автор ответа:
0
===== PascalABC.NET =====
begin
// 1
var a := ArrRandom(5,0, 60);
a.Println;
a[:3].Sum.Println;
// 2
var b := ArrRandom(20, 0, 50);
b.Println;
Println(b[18]+b[19])
end.
Приложения:
Интересные вопросы
Предмет: Физика,
автор: Аноним
Предмет: Другие предметы,
автор: michidmaamika0622
Предмет: Математика,
автор: macsimzhdanoff
Предмет: Биология,
автор: soft2
Предмет: Геометрия,
автор: zoter2002