вывести на экран 100 случайных трехзначных чисел выделить красным цветом числа оканчивающиеся на 0. найти сумму всех которые меньше числа 500
Ответы
PascalABC.NET
Uses crt;
begin
Var Sum:=0;
var Arr := ArrRandom(100,100,999);
foreach var x in Arr do begin
if x mod 10 = 0 then begin
textcolor(red);
x.Print
end
else begin
Textcolor(white);
x.Print
end;
if x < 500 then
Sum+=x
end;
Println;
Textcolor(white);
Println('Summ x<500 = ',sum);
end.
Результат приложил в виде скрина.
===== PascalABC.NET =====
uses System;
begin
var a := ArrRandom(100, 100, 999);
foreach var n in a do
begin
if n mod 10 = 0 then
Console.ForegroundColor := ConsoleColor.Red
else
Console.ResetColor;
Console.Write(n + ' ')
end;
Writeln;
Console.WriteLine(a.Where(p -> p < 500).Sum)
end.
