Вопрос по информатике:
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 исправте её так что бы работала.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 22.07.2018 09:46
- Информатика
- remove_red_eye 6075
- thumb_up 49
Ответы и объяснения 2
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... скобка лишняя, массив не был описан правильно и точка с запетой не стояла
- 23.07.2018 10:56
- thumb_up 2
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. Надеюсь на благодарность и лучший ответ.
- 24.07.2018 08:40
- thumb_up 27
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.