Program pr1;
uses crt;
var
n:byte; // Размерность массива
i:byte; // Счетчик массива
a:array[1..20] of real; // Массива чисел
S:real; // Сумма чисел
Begin
clrscr;
write('Введите размерность массива: ');
readln(n);
writeln('Введите ',n,' элементов');
// Блок ввода
for i:=1 to n do
readln(a[i]);
// Блок вывода
writeln('Исходный массив');
for i:=1 to n do
write(a[i]:6:1,' ');
writeln;
readln;
// Блок инициализации
S:=0;
for i:=1 to n do
if(a[i]<5) then
S:=S+a[i];
readln;
writeln('S= ',S);
End.
Program pr1;
uses crt;
var
n:byte; // Размерность массива
i:byte; // Счетчик массива
a:array[1..20] of real; // Массива чисел
S:real; // Сумма чисел
Begin
clrscr;
write('Введите размерность массива: ');
readln(n);
writeln('Введите ',n,' элементов');
// Блок ввода
for i:=1 to n do
readln(a[i]);
// Блок вывода
writeln('Исходный массив');
for i:=1 to n do
write(a[i]:6:1,' ');
writeln;
readln;
// Блок инициализации
S:=0;
for i:=1 to n do
if(a[i]<5) then
S:=S+a[i];
readln;
writeln('S= ',S);
End.
извини, но из языков программирования которые пишут на русском знаю только 1С и это как по мне издевательство
пишу на старом добром паскале
var a,b,min,max:real;
read(a,b);
if (a <b) then begin
min:=a;
max:=b;
a:= (min+max)/2;
b:=min*max;
end
else begin
min:=b;
max:=a;
b:= (min+max)/2;
a:=min*max;
end;
writeln(a,b);
End.