Определить индексы всех элементов массива, значения которых больше 7

@Dzott · Регистрация: 30.11.2009

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

дан одномерный массив a(n). определить индексы всех элементов значения которых больше 7

@STL1te · 25.01.2010, 14:38

Pascal

Program mas;
uses
  crt;
const
  n=10; //размер массива
type
  mas=array[1..n] of integer;
 var
   i:integer;
   a:mas;
 begin
 ClrScr;
   for i:=1 to n do
     begin
       writeln ('Vvedite ',i,'-i element massiva');
       readln (a[i]);
     end;
 //вводим элементы массива
 writeln ('Indexi elementov massiva kotorie > 7');
   for i:=1 to n do
     if a[i]>7 then
       write (i,' ');
 //если элемент больше 7, то выписываем его индекс
 readln;
 end.

@Dzott 0 / 0 / 0 Регистрация: 30.11.2009 Сообщений: 5
		1
	Определить индексы всех элементов массива, значения которых больше 7 25.01.2010, 13:13. Показов 1724. Ответов 1 Метки нет (Все метки) дан одномерный массив a(n). определить индексы всех элементов значения которых больше 7 0

	25.01.2010, 14:38

Определить индексы всех элементов массива, значения которых больше 7

Решение