Практическая работа по теме

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

Работа учащихся 9 а класса

Ершов Владислав

1. var C: array [1..12] of integer;
2. for i:=1 to 45 do read(M[i]);
3. for i:=1 to 27 do write (F[s]);

5) //Описание массива a

program Ersh2;

var a: array [11..19] of integer;

i: integer;

begin

for i:=11 to 19 do

begin

a[i]:=i*2;

write('a[',i,']=',a[i],' ');

end;

end.

Вариант I

4) //Описание массива a

program Ersh1;

var a: array [1..14] of real;

i: integer;

begin

for i:=1 to 14 do

begin

a[i]:=random(10,11);

write('a[',i,']=',a[i],' ',' ');

end;

end.

Маркевич Даниил II Вариант

Задание №1 var D: array [1..17] of real

Задание №2 for n:=1 to 28 do read (K[n])

Задание №3 for j:=1 to 7 do writeln ( ‘B[‘ ,j, ’ ]=’ ,a[j]);

Ковальджи Никита II вариант

Задание №1 var D: array [1..17] of real;

Задание №2 for n:=1 to 28 do read (K [n] );

Задание №3 for j:=1 to 7 do wrIteln ( ‘B[‘ ,j, ’ ]=’ ,a[j]);

Задание №4 program nomer_4;

var A: array [1..17] of integer;

begin for i:=1 to 17 do

begin A[i]:= random (9)+5; writeln(A[i], ' ');

end;

end.

Вариант II Демкин Иван

№1 var D: array [1..17] of real;

№2 for n:=1 to 28 do read (K[n]);

№3 for j:=1 to 7 do writeln ( ‘ B [ ‘ , j , ’ ] = ’, a [ j ] ) ;

№4 program n_1;

var i:integer; i:integer;

A: array [1..17] of integer; begin for i:=1 to 17 do begin A[i]:= random (9)+5; writeln(A[i], ' ');

end; end.

​

Крапивницкая Мария Вариант I

1. svar C: array [1..12] of integer;
2. for i:=1 to 45 do read (M[i]);
3. for s:=1 to 27 do write (F[],’ ’);

​

​

​

4. //Программа описания массива С//

Program w483;

var F: array [1..14] to real;

n:integer;

begin

for n:=1 to 14 do F[n]:=10+random(2);

for n:=1 to 14 do write (F[n],’ ’,’ ’);

end.

Залищук Александр I вариант

• var C:array[1..12] of integer;
• for i:=1 to 45 do read(M[i]);
• for i:=1 to 27 do write (F[s]);
• //Описание массива C

program q3;

var C:array[1..14] of real;

i:integer;

begin

for i:=1 to 14 do C[i]:=10+random(2);

for i:=1 to 14 do write(C[i],' ',' ');

end.

​

​

​

5-е задание

​

//Описание массива C

program q3;

var C:array[1..9] of integer;

i:integer;

begin

for i:=1 to 9 do C[i]:=(11+random(9))*2;

for i:=1 to 9 do write('C[',i,']=',C[i],' ',' ');

end.

​

Антонов Даниил вариант I

1. var C:array[1..12] of integer;
2. for i:=1 to 45 do read(M[i]);
3. for i:=1 to 27 do write (F[s]);
4. //Описание массива C

program q3;

var C:array[1..14] of real;

i:integer;

begin

for i:=1 to 14 do C[i]:=10+random(2);

for i:=1 to 14 do write(C[i],' ',' ');

end.

​

Яхонтова Влада 2 вариант

1. Var D: array [1..17] of real

​

2. For n:= 1 to 28 do readln(K[n]);

​

3. For j:=1 to 7 do

Writeln(B[j]);

4. Program massiv;

Var a: array [1..17] of integer;

I: integer;

Begin

I:=1;

For i:=1 to 17 do

Begin

A[i]:=5+random(10);

I:=i+1;

End;

I:=1;

For i:=1 to 17 do

Begin

Write(a[f], ‘ ‘);

I:=i+1;

End;

End.