Решить : вывести на экран массив из n случайных чисел и найти номер элемента, значение которого равно n (если вводится что n=10 ,то вывести номер элемента ,значение которого равно 10).
Строчные и прописные латинские буквы: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z a b c d e f g h i j k l m n o p q r s t u v w x y z пробел подчеркивание: _ арабские цифры: 0 1 2 3 4 5 6 7 8 9 знаки операций: + - * / = <> < > <= >= := @ ограничители: . , ' ( ) [ ] (. .) { } (* *) .. : ; спецификаторы: ^ # $ служебные (зарезервированные) слова: ABSOLUTE EXPORTS LIBRARY SET ASSEMBLER EXTERNAL MOD SHL AND FAR NAME SHR ARRAY FILE NIL STRING ASM FOR NEAR THEN ASSEMBLER FORWARD NOT TO BEGIN FUNCTION OBJECT TYPE CASE GOTO OF UNIT CONST IF OR UNTIL CONSTRUCTOR IMPLEMENTATION PACKED USES DESTRUCTOR IN PRIVATE VAR DIV INDEX PROCEDURE VIRTUAL DO INHERITED PROGRAM WHILE DOWNTO INLINE PUBLIC WITH ELSE INTERFACE RECORD XOR END INTERRUPT REPEAT EXPORT LABEL RESIDENT
Var a,b,c: int64; i,j,k,n,m,r,p,s: integer; begin for i:=1 to 9 do // буква х for j:=1 to 9 do // буква г for k:=1 to 9 do // буква т for n:=0 to 9 do // буква о for m:=0 to 9 do // буква с for r:=0 to 9 do // буква у begin p:=k*k mod 10; a:=i*10000+p*1000+r*100+m*10+k; b:=j*100000+p*10000+n*1000+i*100+n*10+k; c:=p; for s:=1 to 10 do c:=c*10+p; if a*b=c then begin writeln('хруст = ',a); writeln('грохот = ',b); writeln(' = ',c); end; end; end.
const
n=10;
var
a : array [1..n] of integer;
k, i, s : integer;
begin
s:=0;
randomize;
writeln('Введите число n= ');
read(k);
writeln('Массив:');
for i:=1 to n do
begin
a[i]:=random(10)+1;
write(a[i],' ');
end;
writeln;
for i:=1 to n do
if (a[i]=k) then
begin
s:=s+1;
write('Номер элемента равный n: ',i)
end;
if (s=0) then
writeln('Такого числа нет');
end.