Определить, сколько элементов массива В будут иметь положительные значения

@Aleksandra_spb · Регистрация: 30.09.2015

Author24 — интернет-сервис помощи студентам

Очень нужна помощь, получила задание по информатике, но в этом я ничего не понимаю.

1. Значение двух массивов А[1..100] и B[1..100] задаются с помощью следующего фрагмента программы:

Pascal

for n:=1 to 100 do
      A[n]:=n-10;
   for n:=1 to 100 do
      B[n]:=A[n]*n;

Сколько элементов массива В будут иметь положительные значения?

2. В программе описан одномерный массив с индексами от 0 до 10 и целочисленные переменные k , i. В приведённом ниже фрагменте программы массива сначала заполняется, а потом изменяется:

Pascal

for i:=0 to 10 do A[i]:=i;
   for i:=10 downto 0 do begin
      k:=A[10-i];
      A[10-i]:=A[i];
      A[i]:=k;
   end;

Чему будут равны элементы этого массива?
1) 10 9 8 7 6 5 4 3 2 1 0
2) 0 1 2 3 4 5 6 7 8 9 10
3) 10 9 8 7 6 5 6 7 8 9 10
4) 0 1 2 3 4 5 4 3 2 1 0

3. Дан фрагмент программы, обрабатывающий массив А из 10 элементов:

Pascal

  j:=1;
   for i:=1 to 10 do
     if A[i]=A[j] then j:=i;
   s:=j;

Чему будет равно значение переменной s после выполнения этого алгоритма?

4. В программе описан одномерный целочисленный массив с индексами от 0 до 10 и целочисленная переменная i. В приведённом ниже фрагменте программы массива сначала заполняется, а потом изменяется:

Pascal

1
2
3

for i:=0 to 10 do A[i]:=i+1;
   for i:=1 to 10 do
     A[i]:=A[i-1];

Чему будут равны элементы этого массива?
1) 1 1 2 3 4 5 6 7 8 9 10
2) 1 2 3 4 5 6 7 8 9 10 10
3) 1 1 1 1 1 1 1 1 1 1 1
4) 0 1 2 3 4 5 6 7 8 9 10

Помогите пожалуйста с решением, и если у Вас будет возможность с объяснением, минимальным, просто хочется не тупо сдать решения а хоть немного иметь представление об этих циферках) Надеюсь кто-нибуть откликнется)) Заранее прошу прощения, если я задала вопрос не по теме... Спасибо.

@ermolay · 30.09.2015, 20:51

1)
в массиве A элементов, меньших и равных нулю - 10. Следовательно, в массиве B положительных - 90. Что, собственно и демонстрирует следующая программка:

Pascal

var
  a, b: array[1..100] of integer;
  n, c: integer;
begin
  for n := 1 to 100 do
  begin
    a[n] := n - 10;
    b[n] := a[n] * n;
    if b[n] > 0 then inc(c);
  end;
  writeln(c);
  readln
end.

Сообщение от Aleksandra_spb

Заранее прошу прощения, если я задала вопрос не по теме

Вопросы вроде как бы по теме, но каждый вопрос должен быть в отдельно созданной теме, пардон за тавтологию

@Aleksandra_spb · 30.09.2015, 20:52 **[ТС]**

Спасибо)

@Aleksandra_spb 0 / 0 / 0 Регистрация: 30.09.2015 Сообщений: 5
	30.09.2015, 20:52 [ТС]	3
	Спасибо) 0