<em>// PascalABC.NET 3.2, сборка 1504 от 09.07.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(30,1,20); a.Println;
Writeln('Элементов, оканчивающихся цифрой 8- ',
a.Where(x->x mod 10=8).Count)
end.
<u>Пример</u>
1 3 20 17 2 5 3 14 18 1 13 3 8 9 5 19 19 3 19 20 2 12 20 13 7 5 10 9 1 20
Элементов, оканчивающихся цифрой 8- 2
Я уже отвечал вашему однокласснику, видимо ;) Ответ - -16
Var chisl:array[1..4]of integer;
i,min:integer;
begin
for i:=1 to 4 do begin
Write(i,'-чисдо='); Readln(chisl[i]);
end;
min:=chisl[1];
for i:=1 to 4 do begin
if chisl[i]<=min then min:=chisl[i];
end;
Writeln('Квадрат минимума=', sqr(min));
end.