Var a,b,c,d,e,f:real;
begin
write ('Введите результаты 1 опроса: ');
readln (a);
write ('Введите результаты 2 опроса: ');
readln (b);
write ('Введите результаты 3 опроса: ');
readln (c);
write ('Введите результаты 4 опроса: ');
readln (d);
write ('Введите результаты 5 опроса: ');
readln (e);
f:=(a+b+c+d+e)/5;
writeln ('Средний балл = ',f);
end.
//PascalABC.NET 3.2 сборка 1318
Var
a,b,c,d:real;
begin
readln(a,b,c,d);
if a*b>c*d then writeln((a+b+c+d)/4) else writeln(power(a*b*c*d,1/4));
end.
Пример ввода:
1
2
3
4
Пример вывода:
2.21336383940064
Ответ:
Массив представляет собой совокупность данных одного типа с общим для всех элементов именем.
Элементы массива пронумерованы, и обращаться к каждому из них можно по номеру. Номера элементов массива иначе называются индексами, а сами элементы массива - индексированными переменными.
//PascalABC.NET
//Версия 3.4.2
begin
range(1,ReadInteger('n=')).Where(x->x.IsEven).Println;
end.