Var
m,n: array [1..15] of integer;
a,i,max: integer;
begin
readln(a);
writeln('Исходный массив:');
for i:= 1 to 15 do
begin
m[i]:= random(20);
n[i]:=m[i]*a;
if (n[i]>max) and (i mod 2=1) then max:=n[i];
write (m[i],' ');
end;
writeln;
writeln('Новый массив:');
for i:= 1 to 15 do write (n[i],' ');
writeln;
writeln('Максимальный нечетный: ',max);
<span>end.</span>
#include <stdio.h>
int main()
{
int i, j, n;
printf (“Введите n: “);
scanf (“%d”, &n);
for(i = 1; i <= n ; i++) {
for(j = 1; j <= n ; j++) {
printf (“%5d”, i * j);
}
printf(“\n”);
}
return 0;
<span>}</span>
В 3 битах можно хранить максимум 8 различный цифр (2³), поэтому максимальное количество слов - 8.
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var N:=readinteger('N=');
var mas:=ArrRandom(N,-20,20); mas.Println;
writeln('Положительных элементов: ',mas.Count(t->t>0));
writeln('Отрицательных элементов: ',mas.Count(t->t<0));
writeln('Нулевых элементов: ',mas.Count(t->t=0));
end.
Начало.
Оденься.
Если дома кто-нибудь остаётся,попрощайся.
То выйдя из квартиры.
Иначе ...?
Выйди из квартиры.
Закрой дверь.
Коней.