В первом переменная a будет равна 4
Во втором переменная b будет равна 48
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(20,50,100); a.Println;
Writeln('Сумма четных значений равна ',a.Where(t->t.IsEven).Sum)
end.
<u>Пример</u>
60 77 58 60 64 54 91 78 56 85 65 87 83 76 83 63 63 77 97 67
Сумма четных значений равна 506
<em><u>На карте памяти в мабильном телефоне данные также хранятся в виде файлов</u></em>
Program z1;
var a,b,c:real;
begin
writeln('введите 2 числа');
readln(a,b);
if (a>b) then c:=a/b
else c:=b/a;
writeln(c);
end.