var mas:array[1..5] of integer; i:integer;
begin
for i:=1 to 5 do readln(mas[i]);
mas[5]:=mas[2];
writeln(mas[1],mas[2],mas[3],mas[4],mas[5]);
readln;
end.
Program idinah;
var a, b: real;
begin
write('a, b = ');
readln(a,b);
writeln('Среднее арифметическое = ',(a+b)/2);
end.
Ответ:
22000
Объяснение:
всё просто больше в 2 раза
экселевский документ с примером тебе в помощь
нужно объяснение, пиши в личные