четверг, 17 января 2013 г.

ОСНОВНЫЕ АЛГОРИТМЫ РАБОТЫ С МАССИВАМИ

1) Поиск элемента по признаку
2) Подсчет числа элементов, удовлетворяющих условию
3) Изменение позиции элемента внутри массива
4) Сортировка массива
  
Поиск элементов равных нулю
var a: array[1..10] of Integer;
      i, n: Integer;
begin
   for i:=1 to 10 do Read(a[i]);
   n:=0;
   for i:=1 to 10 do
      if a[i]=0 then   begin
           writeln (’a[’,   i,  ’]=0’);
           n:=1;
   end;
   if n=0 then Writeln(’таких элементов нет’); 
 end.

Подсчет числа элементов равных нулю
var a: array[1..10] of Integer;
      i, s: Integer;
begin
   for i:=1 to 10 do Read(a[i]);
   s:=0;
   for i:=1 to 10 do
      if a[i]=0 then   begin
           s:=s+1;
   end;
   Writeln(s);
end.


Поиск наибольшего элемента
var a: array[1..10] of Real;
      i, n: Integer;  
      max: Real;
begin
   for i:=1 to 10 do Read(a[i]);
   max:=a[1], n:=1;
   for i:=2 to 10 do
      if a[i]>max then
             begin max:=a[i]; n:=i; end;
   write(‘max=‘, max, ‘ n=‘, n);
end.


Опишите на русском языке или одном из языков программирования алгоритм получения из заданного целочисленного массива размером 30 элементов другого массива, который будет содержать модули значений элементов первого массива (не используя специальной функции, вычисляющей модуль числа).
 var a,b: array[1..30] of Integer;
      i: Integer;
begin
   for i:=1 to 30 do Read(a[i]);
   for i:=1 to 30 do
      if a[i]<0 then  b[i]:=-a[i];
      else b[i]:=a[i];
end.

Комментариев нет:

Related Posts Plugin for WordPress, Blogger...