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

@KAJIM · Регистрация: 21.03.2012

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

1) Значения двух массивов A[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;

Сколько элементов массива B будут иметь положительные значения?
1) 10 2) 50 3) 90 4) 100
и вторая
2)17) Элементы двухмерного массива A размером 99 задаются с помощью следующего фрагмента программы:

Pascal

1
2
3

 for n:=1 to 9 do 
    for k:=1 to 9 do 
      A[n,k]:=n+k+1;

Сколько элементов массива A будут принимать четные значения?
1) 36 2) 40 3) 41 4) 45

@MafiaWest · 26.03.2012, 12:12

1. 90
2.40

@PCixoPAD · 26.03.2012, 12:22

1

Pascal

program mas;
var
A: array [1..100] of integer;
B: array [1..100] of integer;
n:integer;
s:integer;
Begin
for n:=1 to 100 do
A[n] := n - 10;
for n:=1 to 100 do
B[n] := A[n]*n; 
S:=0;
For n:=1 to 100 do
If B[n]>0 then
inc(s);
writeln('Положительных элементов: ',s);
readln
End.

Ответ: 3) 90

Добавлено через 2 минуты
2

Pascal

program mas;
var
A: array [1..9,1..9] of integer;
n,k:integer;
s:integer;
Begin
for n:=1 to 9 do 
for k:=1 to 9 do 
A[n,k]:=n+k+1; 
S:=0;
for n:=1 to 9 do 
for k:=1 to 9 do 
If A[n,k] mod 2 = 0 then
inc(s);
writeln('Четных элементов: ',s);
readln;
End.

Ответ: 2) 40

@MafiaWest 102 / 100 / 33 Регистрация: 24.04.2010 Сообщений: 286 Записей в блоге: 1
	26.03.2012, 12:12	2
	1. 90 2.40 0

	26.03.2012, 12:22