<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-500,500); a.Println;
Writeln('min=',a.Min,', max=',a.Max,', Sп=',
a.Where(x->x in [10..99]).Sum)
end.
<u>Пример</u>
475 186 243 323 -497 23 -65 -2 180 74
min=-497, max=475, Sп=97
Алг
нач
нц для i от 1 до 4
закрасить
вправо
закрасить
вправо
закрасить
вправо
закрасить
вправо
вниз
кц
кон
Суждение:
1. Все сосны являются деревьями.
2.Ни один кит - не рыба.
3.Все караси являются рыбами.
4. Все розы - это цветы.
5. Все мухи - это птицы.
Умозаключения:
1. Ты задал вопрос, вопрос задают когда не знают. Умозаключение: ты не знаешь.
2. Все прямоугольники-параллелограммы. Квадрат - это прямоугольник. Умозаключение: квадрат - это параллелограмм.
3. Все люди смертны. Сократ - человек. Умозаключение: Сократ смертен.
4. Звезды взрываются. Солнце - звезда. Умозаключение: Солнце взорвется.
5. У треугольника все углы равны. Умозаключение: треугольник равноугольный
<span>а) макет застройки жилого района в мастерской архитектора</span>
<span>б) макет скелета животного в кабинете биологии</span>
<span>в) модель полета самолета новой конструкции в аэродинамической трубе</span>
<span>г) сделанные из космоса фотоснимки движения воздушных масс</span>
<span>д) расписание движения автобусов</span>
Var x:integer;
begin
paint;
for x:=1 to 5 do
begin
left;
paint;
end;
for x:=1 to 4 do
begin
down;
paint;
end;
for x:=1 to 2 do
begin
right;
paint;
end;
for x:=1 to 3 do
begin
up;
paint;
end;
end.