Значения двух массивов А[1..100] и B[1..100] задаются следующим фрагментом программы for i:=1 to 100 do a[i]:=i-10; for i:=1 to 100 do B[i]:=a[i]i; Сколько элементов массива будут иметь отрицательные значения?
Дан массив А[n], из 10 элементов (1; 5; -2; 3; -5; 6; 0; -5; 0; 1) и фрагмент программы. S:=0; for i:=1 to 10 do if a[i]>0 then s:=s+1; writeln(s); Что будет напечатано? *
Дан массив А[n], из 10 элементов (1; 5; -2; 3; -5; 9; 0; -5; 0; 1) и фрагмент программы. N:=1; for i:=1 to 10 do if a[i]>a[n] then N:=i; writeln(n); Что будет напечатано? *
Дан массив А[n], из 10 элементов (1; 5; -2; 3; -5; 6; 0; -5; 0; 1) и фрагмент программы. N:=1; for i:=1 to 10 do if a[i]>a[n] then N:=i; writeln(a[n]); Что будет напечатано? *
Дан массив А[n], из 10 элементов (1; 5; -2; 3; -5; 6; 0; -5; 0; 1) и фрагмент программы. S:=0; for i:=1 to 10 do if a[i]>0 then s:=s+a[i]; writeln(s); Что будет напечатано? *
Дан массив А[n], из 10 элементов (1; 5; -2; 3; -5; 6; 0; -5; 0; 1) и фрагмент программы. S:=0; for i:=1 to 10 do s:=s+a[i]; writeln(s); Что будет напечатано? *

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

MrKreeD1

07.08.2022 04:13

Каким образом выполняется автоматически суммирование чисел в ячейке...

mtoropchin

17.11.2022 21:40

2. Складіть список ваших улюблених пісень (від 5 до 10). 5 Нехай користувач Введе назву своєї улюбленої пісні. Перевірте наявність цієї пісні в вашому Списку та виведіть...

дан55566

29.09.2021 20:50

Составить на Python: 1. Пользователь вводит число – используя целочисленное деление выведите сумму двух последних цифр числа (например пользователь вводит 2345, вывод 9...

На0вид0ангел

24.06.2022 01:24

Выполняя первую из них, Омега увеличивает число на экране на 3, а выполняя вторую, делит это число на b. Программа для исполнителя Омега — это последовательность номеров...

Ника3515

19.02.2020 07:29

Вычислите,какое количество информации в битах содержится в 1 Кб (килобайте)? ( ^ - знак степени ) варианты ответа. 1. 2 ^ 10 2. 2 ^ 13 3. 2 ^ 20 4. 2 ^ 23...

Отличница846

19.12.2022 12:41

провести сложение вычитание умножение и деление следующих чисел 1101 в двоичной системе счисления и 14 в восьмеричной системе счисленияв столбик...

гена81

14.02.2023 23:39

Нужна с написанием программы в паскале можно брать абсолютно любой вариант....

pe4onkina

13.05.2021 02:47

Найти все нечётные делители заданного числа....

katy260505

19.03.2022 13:18

Составить алгоритм: поиск слова в словаре и заваривания чая...

keklol1990

01.11.2022 10:04

Цепочка из четырех бусин, помеченных латинскими буквами , формируется по след. правилу: -на втором месте цепочки стоит одна из бусин e,d,c -в конце - одна из бусин d,b,c...

Ответ:

qwdv

27.03.2021 14:09

Наибольшее возможное значение выражения (F+O+X+E)*(F*R*D*D) = 236196. Прилагаю небольшой скрипт на Python. Простенькая задачка на корректную организацию перебора с использованием вложенных циклов:

max_num = 0
for f in xrange(10):
for o in xrange(10):
for x in xrange(10):
for e in xrange(10):
for r in xrange(10):
for d in xrange(10):
b = f*r*d*d
if b == 0:
continue
num = (f + o + x + e) * b
if num > max_num:
max_num = num

print "Maximum value of (F+O+X+E)*(F*R*D*D) is: %i" % max_num

Решение можно получить гораздо проще, если догадаться, что наибольшее значение выражения достигается, когда сумма F+O+X+E и произведение F*R*D*D являются максимальными. Это одновременно происходит, когда все цифры равны 9: (9+9+9+9)*9*9*9*9 = 236196

0,0(0 оценок)

Ответ:

marsik12912

20.07.2022 15:16

Var
a: array[0..99] of integer;
begin
//заполняем массив случайными числами
Randomize();
for var i:=0 to 99 do a[i]:=random(-100,100);

//а теперь заменяем все отрицательные элементы на ноль
for var i:=0 to 99 do
if (a[i]<0) then a[i]:=0;
end.

Вот второй вариант программы, со вводом с клавиатуры и со сдвигом нулевых элементов в хвост массива
program pr_1;constn = 6;varA: array [1..n] of integer; n1: integer;
beginWrite('введите ');for i := 1 to n doread(A[i]); n1:=n; for var i:=n downto 1 do{в цикле просматриваем элементы массива} begin if A[i] < 0 then {проверяем, нужно ли удалять i-ый элемент} begin{если нужно – удаляем i-ый элемент} for var j := i to n1 - 1 do A[j] := A[j + 1]; {сдвигаем} A[n1]:=0; Dec(n1); {уменьшаем количество элементов} end; end; for var i:=1 to n1 do write(A[i], ' ');end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку