Контрольная работа по "Программированию"

Вариант 6 
 

2.Вводится  размер двумерного массива A(N,M) и его элементы. Составить одномерный массив, содержащий количество отрицательных элементов в столбцах исходного массива. Полученный массив вывести на экран. 

Решение: 

uses crt;

const nmax=100;

var a,b:array[1..nmax] of integer; 

   n,i,k:byte;

begin

clrscr;

randomize;

repeat

write('Размер массива до ',nmax,' n=');

readln(n);

until n in [1..nmax];

writeln('Массив:');

for i:=1 to n do 

begin 

a[i]:=random(50)-25; 

 write(a[i]:5); 

end;

writeln;

writeln;

k:=0;

for i:=1 to n do

if a[i]<0 then 

 begin 

   k:=k+1; 

   b[k]:=a[i]; 

 end;

writeln('Массив отрицательных элементов:');

for i:=1 to k do

write(b[i]:5);

readln

end. 
 
 
 
 
 
 
 
 
 

1.Вводится размер  одномерного массива A(N) и его элементы. Составить и вывести на экран массив со значениями элементов исходного массива, больших 10 

Решение: 

const n_max=100; 
      m_max=100; 
var  i,j,m,n:integer; 
     a:array[1..n_max] of integer; 
     b:array[1..m_max] of integer; 
begin 
  writeln; 
  write ('Razmer massiva A(N) raven '); 
  read (n); 
  j := 0; 
  m := 0; 
  writeln ('Elementy massiva A(N):'); 
  for i := 1 to n do 
   begin 
   write('Element A(', i, ') ='); 
   read(a[i]); 
    if a[i] > 10 then begin 
                      m := m + 1; 
                      j := j + 1; 
                      b[j] := a[i]; 
                      end; 
   end; 
writeln; 
writeln ('Elementy massiva B(M):'); 
  for j := 1 to m do 
writeln ('Element B(', j, ') = ', b[j]); 
end. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Список  Литературы: 
 

1.http://borlpasc.narod.ru/docym/lekzii/10.htm 

1. http://progclub.ru/?param=book&name=r_idiot&dir=html&file=index27

3. Free Pascal и Lazarusю Учебник по программированию (Е.Р. Алексеев, О.В. Чеснокова, Т.В. Кучер., 2010 год) 

4. http://programmersforum.ru