Program Example2;
5-9 класс
|
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 исправте её так что бы работала.
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.
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. Надеюсь на благодарность и лучший ответ.
Сейчас месье все будет сделано :)
Другие вопросы из категории
что не смог найти ошибку (см. вложение,1-2). Восстановление системы пробовал, сказал, что все файлы на месте, только не захотел менять один файл - см. в вложениях (3 изображение). Помогите поподробнее плиз.
З.Ы.возможно проблема в системном файле?
З.Ы.Ы пишу с планшета
этого файла. (Например: Spravka.doc)
?*sk*v??*?.j**
m*??**ci*?.**g
*o??o?**ty.*p?
Читайте также
var
x: byte;
const
P = 12;
A = 6;
B = 10;
C =11;
begin
X:= (P*(P-A)*(P-B)*(P-C))^(1/2);
Writeln(x);
end.
Что в этой программе не так? Я хочу извлечь корень из х, а программа пишет "ОШИБОЧНЫЙ ИДЕНТИФИКАТОР".
Program tutor;
var
X, Z: byte;
const
P = 12;
A = 6;
B = 10;
C =11;
begin
X:= (P*(P-A)*(P-B)*(P-C))^(1/2);
Z:=sqrt(X);
Writeln(x,z);
end.
И через "sqrt"- оператор не хочет выдавать корень из Х. Что я не так делаю? подскажите.
a<5 do
writeln(a);
a:=a+1;
End.
2)Program z2;
var a,s:integer;
begin
a:=1; s:=0;
while a<10 do begin
s:=s+a/2;
end;
writeln(s);
end.
integer;
begin
m:= 0
for i: = 1 to 6 do
m: = m-6
writeln (m)
end.
2) program a6
var i, m: integer;
begin
m:= 0;
for i: = 3 to 7 do
m: = m-6+i;
writeln (m)
end.
пожалуйста решение в виде такого -Program sacha;и так далее помогите пожалуйста??????