Var a, b, rezultat: integer;
begin
writeln(`Введите значения a и b:`);
readln(a, b);
if a < b then
rezultat:=a*b
else
rezultat:=a*a-b*b
writeln(rezultat);
end.
<u>1. Современный вариант</u>
// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
var a:=ArrRandom(10,1,50); a.Println;
Writeln('Ср.арифм.нечетных=',a.Where(x->x.IsOdd).Average)
end.
<u><em>Тестовое решение:</em></u>
43 47 37 17 1 39 47 46 3 34
Ср.арифм.нечетных=29.25
<u>2. Школьный вариант</u>
// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
const
n=10;
var
a:array[1..n] of integer;
i,s,k:integer;
begin
Randomize;
k:=0; s:=0;
for i:=1 to n do begin
a[i]:=Random(50)+1;
Write(a[i],' ');
if Odd(a[i]) then begin
s:=s+a[i]; Inc(k)
end
end;
Writeln;
Writeln('Ср.арифм.нечетных=',s/k)
end.
<u><em>Тестовое решение:</em></u>
22 46 37 36 23 30 18 19 15 12
Ср.арифм.нечетных=23.5
Маша - бутерброд с сыром, картофельные чипсы, лимонад, молочный коктейль, луковые чипсы
Аня - Лимонад, молочный коктейль, луковые чипсы, бутерброд с котлетой
Саша - шоколадное печенье, лимонад, молочный коктейль, луковые чипсы, бутерброд с котлетой
Кирилл - молочный коктейль
Егор - Картофельные чипсы, лимонад, молочный коктейль, луковые чипсы
Мила - молочный коктейль, луковые чипсы
Но лучше ещё раз перепроверь
Var a:array [1..10] of integer;
j,sum:integer;
begin
sum:=0;
randomize;
for j:=1 to 10 do
begin
a[j]:=random(11)+20;
write (a[j],' ');
sum:=sum+a[j];
end;
writeln;
writeln ('Summa: ',sum);
readln;
end.
А какая конкретно?????????????????????????
