Если это среда разработки то нужно объявить переменные X и Y
далее написать схему выполнения данной задачи
Истинность может меняться в высказывании:
2. Потому что погода изменчива.
4. Бывают слова с разным количеством слогов
5. Мне кажется 5-ое тоже, так как смотря какие улицы взять.
Хотя, все же, только 2 и 4
<em>// PascalABC.NET 3.2, сборка 1399 от 08.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadSeqReal(3).Select(x->x<0?sqr(x*x):x*x).Println
end.
<u>Пример</u>
3.18 -5.722 1.94
10.1124 1071.99167796866 3.7636
Для среднего арифметического тип данных double
Для определения большего числа int.
Const Sz = 100; // Размер массива
var
a: array [1..Sz] of integer;
N: integer; // Количество элементов в массиве
i: integer;
begin
N := 20;
for i:=1 to N do
a[i] := Random(20)-10;
writeln('Элементы массива: ');
for i:=1 to N do
write (a[i],' ');
writeln;
for i:=1 to N do
begin
if (a[i]=0) then
writeln(a[i],' ',i);
end;
end.