Создать таблицы в и нес и в или с a & (c -- b) -- не(с v не в) - id1056024120230302 от 4992554419 02.03.2023 20:31

Question

Информатика: Создать таблицы в и нес и в или с a & (c -- b) -- не(с v не в)

4992554419 · Accepted Answer

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

begin

var mas:=ArrRandom(20,-99,99); mas.Println;

var a:=mas[0:10]; var b:=mas[10:20];

Writeln('количество положительных элементов=',a.Where(t->t>0).Count);

Writeln('количество отрицательных элементов=',b.Where(t->t<0).Count);

end.
это как учат в школе :->

var

i,k,l:integer;

mas:Array[1..20] of integer;

begin

randomize;

for i:=1 to 20 do

mas[i]:=random(-99,99);

for i:=1 to 10 do

if mas[i]>0 then

k:=k+1;

for i:=11 to 20 do

if mas[i]>0 then

l:=l+1;

Writeln('количество положительных элементов=',k);

Writeln('количество отрицательных элементов=',l);

end.

Массив содержит 20 элементов. определить количество положительных элементов в первой его половине и

Массив содержит 20 элементов. определить количество положительных элементов в первой его половине и

Создать таблицы
в и нес и в или с
a & (c < --> b) --> не(с v не в)

MOGZ ответил

Создать таблицы в и нес и в или с a & (c < --> b) --> не(с v не в)

MOGZ ответил

Создать таблицы
в и нес и в или с
a & (c < --> b) --> не(с v не в)