Предмет: Информатика,
автор: m1st1kpda
Program Example2;
var Rand: array[1..20] of integer;
I,X,NumberX:integer,
begin
Randomize;
writeln('Masiv slychainix chisel')
for I:=1 to 20 do
begin
Rand[I]:random(50);
write(Rand[I]:4)
end;
writeln;
write('Vvedite X:'));
readln(X);
NumberX:=0;
for I:=1 to 20 do
if Rand(I)=X
then NumberX:=NumberX+1;
if NumberX=0
then writeln('V masice net chisla ',X)
else writeln('Chislo ',X,'v masive prisytsvyet ',NumberX,'paz')
end.
Это программа из учебника, но она не работает на Pascalе ABC исправте её так что бы работала.
Ответы
Автор ответа:
0
Program Example2;
var Rand: array[1..20] of integer;
I,X,NumberX:integer;
begin
Randomize;
writeln('Masiv slychainix chisel');
for I:=1 to 20 do
begin
Rand[I]:=random(50);
write(Rand[I]:4)
end;
writeln;
write('Vvedite X:');
readln(X);
NumberX:=0;
for I:=1 to 20 do
if Rand[i]=X
then NumberX:=NumberX+1;
if NumberX=0
then writeln('V masice net chisla ',X)
else writeln('Chislo ',X,'v masive prisytsvyet ',NumberX,'paz')
end.
Ошибок то 4-5... скобка лишняя, массив не был описан правильно и точка с запетой не стояла
var Rand: array[1..20] of integer;
I,X,NumberX:integer;
begin
Randomize;
writeln('Masiv slychainix chisel');
for I:=1 to 20 do
begin
Rand[I]:=random(50);
write(Rand[I]:4)
end;
writeln;
write('Vvedite X:');
readln(X);
NumberX:=0;
for I:=1 to 20 do
if Rand[i]=X
then NumberX:=NumberX+1;
if NumberX=0
then writeln('V masice net chisla ',X)
else writeln('Chislo ',X,'v masive prisytsvyet ',NumberX,'paz')
end.
Ошибок то 4-5... скобка лишняя, массив не был описан правильно и точка с запетой не стояла
Автор ответа:
0
Спасибо,то что 2 ; не было и ( лишняя знал ,а до [] не додумался)
Автор ответа:
0
я тоже думал, к чему это, а потом увидел имя массива и все стало ясно
Автор ответа:
0
uses crt;
var a, b, c, i, n:integer;
s :array [1..10000] of integer;
begin
clrscr;
writeln ('Введите размер массива, который надо сгенерировать');
read (n);
for i:=1 to n do
s[i]:=random(50);
for i:=1 to n do
writeln (i, ' элемент равен ', s[i]);
writeln ('Введите число, которое нужно найти');
read (a);
for i:=1 to n do
if s[i]=a then inc(b);
if b=0 then writeln('В массиве нет числа ',a) else writeln('Число ', a,' в массиве встречается ', b,' раз');
end.
P.S. Надеюсь на благодарность и лучший ответ.
var a, b, c, i, n:integer;
s :array [1..10000] of integer;
begin
clrscr;
writeln ('Введите размер массива, который надо сгенерировать');
read (n);
for i:=1 to n do
s[i]:=random(50);
for i:=1 to n do
writeln (i, ' элемент равен ', s[i]);
writeln ('Введите число, которое нужно найти');
read (a);
for i:=1 to n do
if s[i]=a then inc(b);
if b=0 then writeln('В массиве нет числа ',a) else writeln('Число ', a,' в массиве встречается ', b,' раз');
end.
P.S. Надеюсь на благодарность и лучший ответ.
Похожие вопросы
Предмет: Химия,
автор: dimastelpuk
Предмет: Биология,
автор: 7766tr
Предмет: Литература,
автор: pari4ykarhip
Предмет: Геометрия,
автор: 1Lana6
Предмет: Математика,
автор: 11stasy11