//PascalABC.NET 3.1 сборка 1200
begin
var a := ArrRandomInteger(50, -50, 50);
writeln('[x < 0] = ', a.Where(x -> x < 0).Count);
writeln('[x > 0] = ', a.Where(x -> x > 0).Count);
writeln('[x = 0] = ', a.Where(x -> x = 0).Count);
end.

0 0

3 года назад

В одномерном массиве подсчитать сумму двоек

RusEP

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(ReadInteger('n='),0,9); a.Println;
Writeln('Сумма двоек равна ',a.Where(t->t=2).Sum)
end.

Пример
n= 15
2 6 6 2 8 5 3 1 8 0 0 2 8 3 6
Сумма двоек равна 6

0 0

4 года назад

3. Дано двузначное число. Напишите программу на языке Паскаль, которая определяет: Есть ли среди цифр заданного целого двузначно

tanyazimnikova

program numbers;

var x, y: integer;

begin

writeln('Введите число.');

read(x);

if (x mod 10)=(x div 10) then write('Цифры одинаковые') else write('Цифры разные');

end.

0 0

4 года назад

В подвале школы потоп. N литров воды оказалось в зоне потопа. У учащихся, помогающих устранить потоп, имеются ведра вместимостью

Elena1994

Program n1;
var n: integer;
begin
readln(n);
if n mod 12 = 0 then writeln('надо вынести ', n div 12, ' ведер')
else writeln('надо вынести ', (n div 12)+1, ' ведер');
end.

0 0

4 года назад