Question

В ПАСКАЛЕ.
1) Напишите программу, которая заполняет массив из 5 элементов случайными числами от 0 до 60 и выводит сумму первых трех элементов этого массива.
2)Напишите программу, которая заполняет массив из 20 элементов случайными числами от 0 до 50 и выводит сумму последнего и предпоследнего элементов этого массива.

Answer 1

Ответ:

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.

Объяснение:

Answer 2

===== 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.