Как найти положительные элементы массива паскаль

Голосование за лучший ответ

Дед Мазай

Гений

(58003)


8 лет назад

Берёшь первый элемент массива, и проверяешь, является ли число положительным. Знаешь, как отличить положительное число от других? Потом следующий элемент, и т. д.

johnsilver

Просветленный

(22277)


8 лет назад

var
i,n:integer;
begin
n:=random(25);
writeln(‘Начат поиск положительных элементов в массиве’);
for i:=0 to n do
if random(2)=1 then writeln(‘Найдено’);
writeln(‘Поиск закончен’);
end.

    program HelloWorld;
var
  a: array [1..100] of integer;
  i, sum, n, k: integer;
begin
  Randomize;
  k:=0;sum:=0;
  Write('Введите размер массива: ');
  Readln(n);
  Writeln('Массив:');
  for i := 1 to n do
  begin
    a[i] := Random(0) - random(20);
    if a[i] > 0 then begin inc(k);
    if k = 2 then sum := a[i]; end;
    Write(a[i]:4);
  end;
  writeln;
  case k of
      0: Writeln('Нет положительных элементов');
      1: Writeln('Нет второго положительного элемента');
      else Writeln('Второй положительный элемент : ',sum);
  end;
end.

5

Элементы массива, которые больше предыдущего

Вывести элементы числового массива, которые больше, чем элементы, стоящие перед ними.

Например, дан массив [3, 9, 8, 4, 5, 1]. Следует вывести числа 9 и 5, так как перед ними стоят соответственно числа 3 и 4, которые меньше их.

Для решения задачи нужно каждый элемент сравнить с последующим или предыдущим. Если перебор идет с первого элемента, то должен продолжаться до предпоследнего. В таком случае выводятся элементы с индексом i+1 (что реализовано в коде ниже) в случае совпадения условия. Если перебор идет со второго элемента до последнего, то выводится элемент под индексом i.

const

N = 20;

var

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

i: byte;

begin

randomize;

for i:=1 to N do begin

a[i] := random(100);

write(a[i]:4);

end;

writeln;

writeln(‘Элементы больше предыдущего: ‘);

for i:=1 to N–1 do

if a[i] < a[i+1] then

write(a[i+1]:4);

writeln;

end.

Разделить элементы массива на максимальный

Все элементы массива поделить на значение наибольшего элемента этого массива.

Поменять местами минимальный и максимальный элементы массива

Задача состоит из двух подзадач:

1. Поиск максимума.

2. Деление на него элементов массива.

const

M = 10;

var

C: array[1..M] of word;

maxC: word;

i: byte;

begin

randomize;

maxC := 0;

write(‘Исходный массив: ‘);

for i := 1 to M do begin

C[i] := random(1000);

write (C[i]:4);

if maxC < C[i] then

maxC := C[i];

end;

writeln;

writeln(‘Максимум: ‘, maxC);

write(‘Частные: ‘);

for i := 1 to M do begin

write (C[i]/maxC:6:2);

end;

writeln;

end.

Первый положительный элемент массива

Найти номер и значение первого положительного элемента массива.

Данная задача решается просто, если использовать оператор break. Массив перебирается в цикле. Каждый элемент проверяется на условие “больше нуля”. Как только оно будет выполнено, элемент следует вывести на экран, а цикл прервать.

const N = 20;

var

arr: array[1..N] of integer;

i: byte;

begin

randomize;

for i:=1 to N do begin

arr[i] := random(100) – 75;

write(arr[i]:4);

end;

writeln;

for i:=1 to N do

if arr[i] > 0 then begin

writeln(i, ‘ ‘, arr[i]);

break;

end;

end.