Выяснить, что получится в результате выполнения программы

@Indigo74 · Регистрация: 09.01.2012

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

Опишите, что получится в результате выполнения программы?

Pascal

Program Variant3; Const n=17;
Var B: Array[1..n] Of Integer;
         i: Byte; p : Integer;
Begin 
p:=0;
For i:=1 To n Do 
           Begin 
B[i]:=-35+Random(121);
 If C[i] Mod 10=0 Then p:=p+1;
 End;
Writeln(p); 
End.

@gaw · 14.11.2012, 13:25

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

Опишите, что получится в результате выполнения программы

ничего, программа просто не запустится, вылетит ошибка

@Indigo74 · 14.11.2012, 13:28 **[ТС]**

Pascal

Program Variant3; Const n=17;
Var B: Array[1..n] Of Integer;
C: Array[1..n] Of Integer;
         i: Byte; p : Integer;
Begin
p:=0;
For i:=1 To n Do
           Begin
B[i]:=-35+Random(121);
 If C[i] Mod 10=0 Then p:=p+1;
 End;
Writeln(p);
End.

а если так?

@ermolay · 14.11.2012, 13:42

Если в 9-й строке не C[i] , а B[i], и программа выглядит так:

Pascal

program Variant3; 
 
const
  n = 17;
 
var
  B: Array[1..n] Of Integer;
  i: Byte; p: Integer;
 
begin
  p := 0;
  for i := 1 To n Do 
  begin
    B[i] := -35 + Random(121);
    if B[i] Mod 10 = 0 Then p := p + 1;
  end;
  Writeln(p); 
end.

то она выводит количество элементов, заканчивающихся нулем
ключевая строчка эта

Pascal

1	if B[i] Mod 10 = 0 Then p := p + 1;

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	14.11.2012, 13:25	2
	Сообщение от Indigo74 Опишите, что получится в результате выполнения программы ничего, программа просто не запустится, вылетит ошибка 1

	14.11.2012, 13:42

Опции темы

Выяснить, что получится в результате выполнения программы

Решение