Нужно сформировать линейный массив по формуле a[i]:=3-i*2+i Вывод в столбик и в строку Найти количество элементов некратных 7. К
Нужно сформировать линейный массив по формуле a[i]:=3-i*2+i Вывод в столбик и в строку Найти количество элементов некратных 7. Количество отрицательных элементов. Удалить 3 элемент и вставить 99 на 5 место
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u> <u>Внимание! Если программа не работает, обновите версию!</u>
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.
<u>Пример</u> Элементов в массиве: 7 2 1 0 -1 -2 -3 -4
Много не точности. Длину массива сделал через ввод пользователя. Скинул текстовый документ и саму программу.
------------------------------------------------------------------------------------------------------- <span>Настоящий мастер — это вечный ученик.</span>