4 года назад

Дан массив, состоящий из 12 целых чисел. Вывести на экран все элементы, которые больше числа х

1 ответ:

0 0

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

begin
var a:=ReadArrInteger('Введите массив', 12);
var x:=ReadInteger('x =');
a.Where(t -> t > x).Println();
end.

Читайте также

Екілік жүйеде 11011*101 есептеңіз

fernando313 [330]

Я так поняла: это 2 числа в двоичной системе счисления,которых необходимо перемножить.

0 0

4 года назад

Дан массив из N целых чисел а₁,а₂...аⁿ.Вам нужно проверить,есть ли в этом массиве три числа сумма которых равна нулю. можете сде

happy2017

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

begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-50,50); a.Println;
var m:=n-1;
var found:=false;
for var i:=0 to m do begin
 for var j:=0 to m do
 if i=j then continue
 else begin
 for var k:=0 to m do
 if (k=i) or (k=j) then continue
 else
 if a[i]+a[j]+a[k]=0 then begin
 Println('Решение:',a[i],a[j],a[k]);
 found:=true;
 break
 end;
 if found then break
 end;
 if found then break
 end;
if not found then Writeln('Нет нужной тройки чисел')
end.

Примеры
n= 13
-25 -29 41 -19 -9 50 -23 36 33 23 48 -6 -5
Решение: -25 -23 48

n= 8
-33 -23 -3 -5 -5 -20 -22 34
Нет нужной тройки чисел

0 0

2 года назад

Прочитать ещё 2 ответа

Катя, Белла, Юля и Вика заняли первые места на конкурсе компьютерного рисунка. Известно, что Катя ни первая, ни последняя, Белла

polina0000

Катя-3
белла-2
вика-1
юля-4

0 0

4 года назад

Можно ли пользоваться этим приложением без интернета?.

Ксюфка

Нет это только с интернетом

0 0