<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Количество строк (столбцов) в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(n,n,-50,50);
a.Println(4); Writeln(4*a.ColCount*'-');
var s:=a.ElementsByRow;
Writeln('Сумма элементов массива ',s.Sum);
Writeln('Произведение отрицательных элементов ',
s.Where(t->t<0).Aggregate(BigInteger(1),(p,q)->p*q));
Writeln('Количество положительных элементов ',
s.Where(t->t>0).Count)
end.
В одном множестве 74 элементов
В другом множестве 15 элементов
Максимальное количество элементов в их пересечении равно количеству элементов в меньшем множестве
Ответ: 15
{Возможно это можно более просто организовать, однако программа работает :) }
Var a,b,ax,x: integer; flag: boolean;
Begin
Readln(a,b); ax:=a;
If (a>=0) and (b>=0) then flag:=true
else begin a:=abs(a); b:=abs(b); flag:=false; end;
If (a=0) or (b=0) then write('0')
else begin while b > 1 do
begin a:=a+ax; dec(b); end; x:=a;
if flag then write(x) else write(x-x*2); end;
End.
Я разговариваю с соседом, который сидит со мной за одной партой.
Мы видим дежурного и расписание.
Солнечный день радует нас.
Алгоритм это система последовательных шагов с определенным правилом,например:
1.решить задачу
2.выписать ответ
3.объяснить ответ
или
1 налить в стакан воду
2 выпить воду и т.д.