Одномерный массив

Презентация состоит из 11 слайдов.

Объясните каждый шаг в программе. Что делает программа? Сколько раз срабатывает цикл?

Var    A : array [1..10] of integer ;    I : byte;

Begin    

  For i:=1 to 10 do Readln (a[i]);

End;

Что делает программа? Сколько раз срабатывает цикл? Что мы увидим при запуске программы?

Var    A: array [1..10] of integer;    I : byte ;

Begin

     For i :=1 to 10 do   Write ( a [ i ],’ ‘);

End;

Что делает программа, как работает?

Var a:array[1..n] of integer;  s,i:integer;
Begin
  s:=0;
  for i:=1 to n do
        begin
  read(a[i]);
  if a[i]>0 then s:=s+a[i];
        end;
writeln('s=',s);
readln;
end.

Одномерный массив

Turbo Pascal 9 класс

Объясните каждый шаг в программе. Что делает программа? Сколько раз срабатывает цикл?

Var A : array [1..10] of integer ; I : byte ;

Begin

For i:=1 to 10 do Readln (a[i]);

End;

Объясните каждый шаг в программе. Что делает программа? Сколько раз срабатывает цикл?

Var A: array [1..10] of integer; I : byte

Begin

For i :=1 to 10 do A [ i ]:= random (10);

End;

Что делает программа? Сколько раз срабатывает цикл? Что мы увидим при запуске программы?

Var A: array [1..10] of integer; I : byte ;

Begin

For i :=1 to 10 do Write ( a [ i ],’ ‘);

End;

Что делает программа? Сколько раз срабатывает цикл? Что мы увидим при запуске программы?

Var A: array [1..10] of integer; I : byte ;

Begin

For i:=1 to 10 do Writeln (‘a[‘, i,’]=’, a[i]);

End;

Что делает программа? Сколько раз срабатывает цикл? Что мы увидим при запуске программы?

var a : array [1..100] of integer; I,n, s : integer;

begin writeln('Вводите размер массива'); readln(n); for i:=1 to n do readln(a[i]); s:=0; for i:=1 to 10 do s:=s+a[i]; writeln('ответ'); writeln(s);

readln;

end.

0 then s:=s+a[i]; end; writeln('s=',s); readln; end. " width="640"

Var a:array[1..n] of integer; s,i:integer; Begin s:=0; for i:=1 to n do begin read(a[i]); if a[i]0 then s:=s+a[i]; end; writeln('s=',s); readln; end.

var A: array[1..10] of integer; s: integer; i: integer; temp: integer; begin FOR I:=1 to 10 do begin WriteLn (' Введи число №', i); ReadLn(A[i]); end; FOR I:=1 to 10 do begin Write (A[i]); Write(' ');

end; i:=1; While i

A[i] Then M:=A[i]; WriteLn( M); End. " width="640"

Var i: Byte; A: Array[1..5] Of Integer; M: Integer;

Begin

Randomize;

For i:=1 To 5 Do A[i]:=Random(11);

WriteLn(' Исходный массив ');

For i:=1 To 5 Do Write(A[i], ' ');

M:=A[1];

For i:=2 To 5 Do If M A[i] Then M:=A[i];

WriteLn( M);

End.

Max1 then Max1:=a[2] else Max2:=a[2]; for i:=3 to N do begin if a[i]Max1 then begin Max2:=Max1; Max1:=a[i]; end else if a[i]Max2 then Max2:=a[i]; end; writeln(Max2); end. " width="640"

const N=30;

var a:array[1..N] of real; Max1, Max2, i: real;

begin

Max1:=a[1];

Max2:=a[1];

if a[2]Max1 then Max1:=a[2]

else Max2:=a[2];

for i:=3 to N do

begin

if a[i]Max1 then

begin

Max2:=Max1;

Max1:=a[i];

end

else if a[i]Max2 then

Max2:=a[i];

end;

writeln(Max2);

end.

MaxSum then begin MaxNum:=i; MaxSum:=a[i]+a[i+1]; end end; writeln(MaxNum); end. " width="640"

const N=30;

var a:array[1..N] of integer;

MaxSum, MaxNum, i: integer;

begin

MaxNum:=1;

MaxSum:=a[1]+a[2];

for i:=2 to N-1 do

begin

if a[i]+a[i+1]MaxSum then

begin

MaxNum:=i;

MaxSum:=a[i]+a[i+1];

end

end;

writeln(MaxNum);

end.