Нужно сформировать линейный массив по формуле a[i]:=3-i*2+i
Вывод в столбик и в строку
Найти количество элементов некратных 7.
Количество отрицательных элементов.
Удалить 3 элемент и вставить 99 на 5 место
Ответы
Ответ дал:
0
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var n:=readInteger('Элементов в массиве:');
var a:=ArrGen(n,i->3-i*2+i,1);
a.Println; Writeln; a.PrintLines;
Writeln('Некратных семи: ',a.Where(t->t mod 7 <> 0).Count);
Writeln('Отрицательных: ',a.Where(t->t<0).Count);
a:=a[:2]+a[3:5]+Arr(99)+a[5:]; a.Println;
end.
Пример
Элементов в массиве: 7
2 1 0 -1 -2 -3 -4
2
1
0
-1
-2
-3
-4
Некратных семи: 6
Отрицательных: 4
2 1 -1 -2 99 -3 -4
Внимание! Если программа не работает, обновите версию!
begin
var n:=readInteger('Элементов в массиве:');
var a:=ArrGen(n,i->3-i*2+i,1);
a.Println; Writeln; a.PrintLines;
Writeln('Некратных семи: ',a.Where(t->t mod 7 <> 0).Count);
Writeln('Отрицательных: ',a.Where(t->t<0).Count);
a:=a[:2]+a[3:5]+Arr(99)+a[5:]; a.Println;
end.
Пример
Элементов в массиве: 7
2 1 0 -1 -2 -3 -4
2
1
0
-1
-2
-3
-4
Некратных семи: 6
Отрицательных: 4
2 1 -1 -2 99 -3 -4
Вас заинтересует
2 года назад
2 года назад
2 года назад
8 лет назад
9 лет назад
9 лет назад