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

@Thankuverymuch · Регистрация: 06.02.2012

Author24 — интернет-сервис помощи студентам

2. В массиве хранится информация о годе рождения каждого из 30 человек. Определить года рождения двух самых, старших по возрасту людей (при определении возраста месяц и дату рождения не учитывать).

3. Дан целочисленный массив из 30 элементов. Элементы массива могут принимать произвольные целые значения. Опишите на русском языке или на одном из языков программирования алгоритм, который находит и выводит номер третьего положительного элемента массива (если из массива вычеркнуть все неположительные элементы, этот элемент стоял бы в получившемся массиве на третьем месте). Если в массиве меньше, чем три положительных элемента, вывести сообщение об этом. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них.
Паскаль Естественный язык
const N=30;
var a: array [1..N] of integer;
i, j, k: integer;
begin
for i:=1 to N do readln(a[i]);
...
end. Объявляем массив A из 30 элементов. Объявляем целочисленные переменные i, j, k. В цикле от 1 до 30 вводим элементы массива A с 1-го по 30-й.
...

@Фаер · 06.02.2012, 19:41

No 3

Pascal

Program Mas;
const N=30;
Var a:array[1..n] of integer; i,j,k:integer;
Begin
k:=0;
For i:=1 to N do Readln(a[i]);
For i:=1 to N do
 Begin
  If (A[i]>0) and (k<3) then
   Begin
    k:=k+1; j:=i;
   End;
  End;
If k<3 then Writeln('Третьего пол. элемента нет:') else Writeln('Номер третьего пол. элемента:',j);
Readln;
End.

@Програмист · 22.11.2012, 12:34

вот:

Pascal

Program C215;
uses crt;
const n = 30;
 
var a: array [1..n] of integer; i, j, k: integer;
 
begin
       for i := 1 to n do begin
            write ('input a[',i,'] - ');
            readln (a[i]);
            writeln();            
       end;      
          k:=0;          
       for i:=1 to N do       
       if a[i] > 0 then begin       
          k:=k+1;          
       if k = 3 then begin
             j := i;
             write('nomer 3-go polojitelnogo elementa -  ',j);       
       end;
       end;
       if k < 3 then write('polojitelnix elementov v massive menshe 3 ili ix net voobshe');
end.

@Thankuverymuch 0 / 0 / 0 Регистрация: 06.02.2012 Сообщений: 13
		1
	Найти номер третьего положительного элемента массива 06.02.2012, 18:58. Показов 2408. Ответов 2 Метки нет (Все метки) 2. В массиве хранится информация о годе рождения каждого из 30 человек. Определить года рождения двух самых, старших по возрасту людей (при определении возраста месяц и дату рождения не учитывать). 3. Дан целочисленный массив из 30 элементов. Элементы массива могут принимать произвольные целые значения. Опишите на русском языке или на одном из языков программирования алгоритм, который находит и выводит номер третьего положительного элемента массива (если из массива вычеркнуть все неположительные элементы, этот элемент стоял бы в получившемся массиве на третьем месте). Если в массиве меньше, чем три положительных элемента, вывести сообщение об этом. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них. Паскаль Естественный язык const N=30; var a: array [1..N] of integer; i, j, k: integer; begin for i:=1 to N do readln(a[i]); ... end. Объявляем массив A из 30 элементов. Объявляем целочисленные переменные i, j, k. В цикле от 1 до 30 вводим элементы массива A с 1-го по 30-й. ... 0

	22.11.2012, 12:34

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

Решение