Хелпикс

Главная

Контакты

Случайная статья



Применение цикла с предварительным условием»



Применение цикла с предварительным условием»

Вариант 3

Задание 1.

Составьте блок-схему алгоритма и программу вычисления в массиве A(N)произведения четных элементов.

Алгоритм выполнения Программа на языке Паскаль
Programst1; var  a: array[1.. 100] ofinteger; i, n: byte; p: integer; begin  p: = 1; writeln('введите n'); readln(n);   fori: = 1 ton do begin    write('введите ', i, ' элемент массива: '); readln(a[i]) end;   fori: = 1 ton do begin       write(a[i]: 2); ifodd (a[i]) thenp: = p * a[i] end; writeln; writeln('произведение четных элементов: ', p) end.  

 

 

Задание 2.

Составьте блок-схему алгоритма и программу вычисления в массиве B(N)минимального среди положительных элементов и его номера.

Алгоритм выполнения Программа на языке Паскаль
    Programst2; vara: array[0.. 100] ofinteger; i, m: integer; begin fori: = 0 to100 do         a[i]: = random(1000) - 500; fori: = 0 to100 do     if((a[i] > 0) and(a[i] > a[m])) then            m: = i; writeln('[', m, '] → ', '[', a[m], ']'); end.      

Задание 3.

Составьте программу вычисления суммы элементов от второго отрицательного и до конца.

 

program st3;

const N=10;

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

i, p, j, sum: integer;

begin

 fori: =1 toN do

begin

  a[i]: =random(20)-10;

 write(a[i], ' ');

end;

 j: =0;

  for i: =1 to N do

begin

 if a[i]> 0 then j: =j+1;

  if j = 1 then p: =i;

end;

  for i: =p+2 to N do

  sum: =sum+a[i];

 writeln();

 writeln('Сумма элементов от второго положительного: ', sum);

end.

Результат:

 



  

© helpiks.su При использовании или копировании материалов прямая ссылка на сайт обязательна.