Определить первый номер элемента массива С[1..8], значение которого равно Р

@Jekkex · Регистрация: 27.02.2013

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

@Leshak · 06.03.2013, 03:47

Pascal

Uses crt;
var
 A: array [ 1 .. 8 ] of integer;
 p, i, index: integer;
 flag: boolean;
begin
clrscr;
randomize;
 
for i:=1 to 8 do begin
     A[i]:=random(21)-10;
     write(A[i],' ');
end;
 
writeln;
write('Enter number:');readln(p);
 
flag:=false;
for i:=1 to 8 do if p = A[i] then begin flag:=true; index:=i; break; end;
 
if flag then writeln(' index of element is: ',index) else writeln('There is no such element!');
readln;
end.

@Jekkex 6 / 6 / 10 Регистрация: 27.02.2013 Сообщений: 94
		1
	Определить первый номер элемента массива С[1..8], значение которого равно Р 06.03.2013, 00:59. Показов 1363. Ответов 1 Метки нет (Все метки) Определить первый номер элемента массива С[1..8], значение которого равно Р 0

	06.03.2013, 03:47

Определить первый номер элемента массива С[1..8], значение которого равно Р

Решение