Найдите номер первого элемента таблицы,меньшего 4

@Ильдар Шайхули · Регистрация: 16.06.2011

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

вот такая задача

@Puporev · 17.06.2011, 08:23

Комментарий модератора

Ильдар Шайхули, Еще одну такую тему создашь и простимся мы с тобой.
Если не отвечают, поднимай свою старую тему, написав например тема актуальна.
Правила форума для кого написаны?

@Ильдар Шайхули · 17.06.2011, 08:25 **[ТС]**

Сообщение от Puporev

Ильдар Шайхули, Еще одну такую тему создашь и простимся мы с тобой.
Если не отвечают, поднимай свою старую тему, написав например тема актуальна.
Правила форума для кого написаны?

о))))Спасибо что ответил,я не понял за что удаляете темы)))Мне просто через 10 минут уже решение надо((((

@Puporev · 17.06.2011, 08:42

Pascal

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,k:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(50);
  write(a[i]:4);
 end;
writeln;
k:=0;
i:=1;
while(i<=n)and(k=0) do
if a[i]<4 then k:=i
else i:=i+1;
if k=0 then write('Элементов меньше 4 нет')
else write('Первый элемент меньше 4 имеет номер ',k);
readln
end.

Добавлено через 36 секунд

Сообщение от Ильдар Шайхули

за что удаляете темы

Первую тему с таким названием я не удалял, только дубли.

@Ильдар Шайхули 0 / 0 / 0 Регистрация: 16.06.2011 Сообщений: 12
		1
	Найдите номер первого элемента таблицы,меньшего 4 17.06.2011, 08:19. Показов 455. Ответов 3 Метки нет (Все метки) вот такая задача 0

@Ильдар Шайхули 0 / 0 / 0 Регистрация: 16.06.2011 Сообщений: 12
	17.06.2011, 08:25 [ТС]	3
	Сообщение от Puporev Ильдар Шайхули, Еще одну такую тему создашь и простимся мы с тобой. Если не отвечают, поднимай свою старую тему, написав например тема актуальна. Правила форума для кого написаны? о))))Спасибо что ответил,я не понял за что удаляете темы)))Мне просто через 10 минут уже решение надо(((( 0

	17.06.2011, 08:42