Инфоурок Информатика Другие методич. материалыШаблон решения задач по теме Массивы в Pascal

Шаблон решения задач по теме Массивы в Pascal

Скачать материал

Шаблон решения задач по теме Массивы в Pascal

 

  1. Поиск минимального (максимального) элемента массива:

const n=10;

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

    min (max),i:integer;

begin

for i:=1 to n do

 begin

  a[i]:=random(20);

  Write(a[i],'  ');

 end;

min (max):=a[1];

for i:=2 to n do

 if a[i]<min a[i]>(max)then

  min:=a[i];

Writeln('Min(max) ',min(max));

end.

 

  1. Найти номер наименьшего элемента в массиве:

min:=a[1];

    For i:=2 to n do

       If a[i]< min then

            begin

                min:=a[i];

                num:=i;

            end;

 

  1. Нахождение суммы (произведения) элементов массива:

s:=0 s:=1;

for i:=1 to n do

begin s:=s+a[i] s*a[i];

end

write (s);

end.

 

  1. Сумма элементов массива с четными номерами:

s:=0;

  For i:=1 to n do

     if i mod 2 = 0 then s:=s+a[i];

     end;

   writeln(‘сумма элементов с четными номерами: ‘,s);

End.

 

  1. Среднее арифметическое элементов массива:

s:=0;

  For i:=1 to n do

     s:=s+a[i];

     end;

   sred:=s/n;    

  writeln(‘среднее арифметическое  элементов: ‘,s);

End.

 

 

  1. Произведение элементов с четными номерами, которые превосходят некоторое число t:

 

P:=1;  

  For i=1 to n do

       begin      

            if (i mod 2 = 0) and (a[i]>t) then P=P*a[i];

       end;

  Writeln(‘Произведение элементов с четными номерами, превосходящие число t:’, P);

End.

 

  1. Подсчитать количество нечетных элементов:

k:=0;

For i:=1 to n do

    begin

       Write(‘a[‘,i,’]=’); readln (a[i]);

       if  a[i] mod 2<>0 then k:=k+1;

    end;

  Writeln(‘количество четных элементов: ’, k);

end.

 

  1. Среднее арифметическое элементов массива, состоящего из n чисел, которые превышают по величине число С;

S:=0; K:=0;

For i:=1 to 10 do

    begin

       If a[i]>C then

           begin      S:=S+a[i];     K:=K+1;   end;

     end;

   sred:=S/k;

   Writeln(‘среднее арифметическое чисел, превосходящих ‘,C,’  равно  ‘,sred);

End.

 

  1. Поменять местами соседние элементы;

Var
  n, i, c : integer;
  a : array [1..n] of integer;
begin
  read (n);
   for i := 1 to n do read (a[i]);
  for i := 1 to n div 2 do
  begin
    c := a[i*2];
    a[i*2] := a[i*2-1];
    a[i*2-1] := c;
  end;
  for i := 1 to n do
    write (a[i], ' ');
end.

 

 

 

 

 

 

 

 

  1. Сформировать новый массив В, состоящий из четных элементов массива А:

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

       b: array[1..n] of  integer;

       kol, n, i, k: integer;

Begin

  kol:=0; k:=0;

    For i:=1 to n do

    begin

       write(‘a[‘,i,’]=’);     readln (a[i]);

       if a[i] mod 2=0 then

              begin

                   k:=k+1; b[k]:=a[i]; kol:=kol+1;

              end;

          if kol=0 then writeln(‘четных элементов нет’) else    

          for k:=1 to kol do  write(‘b[‘,k,’]=’,b[k]);

    end;

 

 

Просмотрено: 0%
Просмотрено: 0%
Скачать материал
Скачать материал
Скачать материал

Найдите материал к любому уроку, указав свой предмет (категорию), класс, учебник и тему:

6 104 836 материалов в базе

Материал подходит для УМК

Скачать материал

Другие материалы

Вам будут интересны эти курсы:

Оставьте свой комментарий

Авторизуйтесь, чтобы задавать вопросы.

  • Скачать материал
    • 21.10.2022 95
    • DOCX 34 кбайт
    • Оцените материал:
  • Настоящий материал опубликован пользователем Трифонова Татьяна Викторовна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт

    Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.

    Удалить материал
  • Автор материала

    Трифонова Татьяна Викторовна
    Трифонова Татьяна Викторовна
    • На сайте: 5 лет и 10 месяцев
    • Подписчики: 0
    • Всего просмотров: 980
    • Всего материалов: 5

Ваша скидка на курсы

40%
Скидка для нового слушателя. Войдите на сайт, чтобы применить скидку к любому курсу
Курсы со скидкой