const xn=100; const xm=100;var x: array [1..xn, 1..xm] of integer; n, m,i,j,r: integer;
begin write('Введите n');Read(n);write('Введите m');Read(m);for i := 1 to n do beginfor j := 1 to m do beginif ((i = 1) or (i = n)or (j = m) or (j = 1)) thenwrite(0:3,' ')else beginif (((i mod 2) = 0)or((j mod 2) = 0))thenwrite((i*i+j*j):3,' ')else beginr:= Round(Random()*15 - 5);write((r):3,' ');end;end;end; Writeln; end;end.
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadlnString('>').ToWords.Count,' слов(а)')
end.
<u>Пример</u>
> А роза упала на лапу Азора
6 слов(а)
Программа числа и промежуток (в Кумире) Ввод чисел через пробел
Ответ:
Совокупность знаков, с помощью которых записываются числа называется: B
<u>PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(15,-50,50); a.Println;
Writeln('Отрицательных: ',a.Where(t->t<0).Count);
Writeln('Минимум: ',a.Min);
Writeln('Среднее арифметическое отрицательных: ',
a.Where(t->t<0).Average)
end.
<u>Пример</u>
-16 47 -41 -26 1 3 27 -28 -26 4 -19 -13 -16 38 20
Отрицательных: 8
Минимум: -41
Среднее арифметическое отрицательных: -23.125