ПОМОГИТЕ ПОЖАЛУЙСТА!!! ХОТЯ БЫ ОДНУ
Задача 1. Найти сумму пяти целых чисел массива.
Program z1;
usescrt;
var a:array [1..5] of integer;
..., i:integer;
Begin
...:=0;
Writeln ('Введитеэлементымассива');
for i:=1 to 5 do
readln (....);
for i:=1 to 5 do
...:= s+ a[i];
Writeln ('….=',….);
End.
Задача 2. Найти среднее арифметическое число в массиве.
Program z1;
usescrt;
var a:array [1..5] of integer;
..., i:integer;
...: real;
Begin
...:=0;
Writeln ('Введитеэлементымассива');
for i:=1 to 5 do
readln (....);
for i:=1 to 5 do
...:= ...+ ....;
....:=.......;
Writeln ('sr=',sr);
End.
Задачу 3.Вывести на экран элементы массива в обратном порядке.
program array1;
var
a: array[1..8] of integer;
i: …….;
begin
write('Введите элементы массива:');
for i := ….. to …… do
read (……);
write('Элементы в обратном порядке: ');
for i := …………………….do
write( …)
end.