1. = c) прикладная программа, предназначенная для хранения, обработки и организации расчетов
2. = b) множество нумерованных строк и поименованных буквами латинского алфавита столбцов
3. = b) лист
4. = a) ячейка
5. = c) выделенная ячейка электронной таблицы
6. = a) совокупность выделенных ячеек, которые образуют в таблице прямоугольную область
7. = c) =B3*C4
8. = b) выбрана ширина ячейки, которая не позволяет разместить в ней результаты определенных вычислений
9. = b) =$A$1*A2+B3
10. = a) A
11. = b) 18
12. = d) Al:B2
13. = d) все перечисленные
14. = 1e 2д 3в 4г 5а 6б
1. = c) прикладная программа, предназначенная для хранения, обработки и организации расчетов
2. = b) множество нумерованных строк и поименованных буквами латинского алфавита столбцов
3. = b) лист
4. = a) ячейка
5. = c) выделенная ячейка электронной таблицы
6. = a) совокупность выделенных ячеек, которые образуют в таблице прямоугольную область
7. = c) =B3*C4
8. = b) выбрана ширина ячейки, которая не позволяет разместить в ней результаты определенных вычислений
9. = b) =$A$1*A2+B3
10. = a) A
11. = b) 18
12. = d) Al:B2
13. = d) все перечисленные
14. = 1e 2д 3в 4г 5а 6б
Поделитесь своими знаниями, ответьте на вопрос:
Введите с клавиатуры одномерный массив а(n), элементами которого являются положительные и отрицательные целые числа. подсчитайте произведение положительных элементов этого массива и количество отрицательных. сформируйте новый массив в(n) из элементов массива а(n), в котором все элементы которые стоят на четных местах замените на произведение положительных, а на нечетных – на количество отрицательных
a,b:array [1..1000] of integer;
i,s,c,n:integer;
begin
writeln('Введите кол-во чисел');
readln(n);
s:=1;
c:=0;
for i:=1 to n do begin
writeln('a[',i,'] = ');
read(a[i]);
if (a[i]>0)then s:=s*a[i];
if(a[i]<0) then c:=c+1;
end;
for i:=1 to n do begin
if(i mod 2 <>0) then a[i]:=c
else a[i]:=s;
end;
end.