сервис вопросов и ответов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 исправте её так что бы работала.
Nicolsong
11 апр. 2014 г., 12:24:40 (10 лет назад)
люсяяяяя1111
11 апр. 2014 г., 14:08:55 (10 лет назад)
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.
Мася7
11 апр. 2014 г., 16:32:39 (10 лет назад)
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. Надеюсь на благодарность и лучший ответ.
Margoastrahan
11 апр. 2014 г., 18:21:57 (10 лет назад)
Сейчас месье все будет сделано :)
Ответить
Другие вопросы из категории
Посоны, у меня не запускается комп ( 7 винда). Вхожу в систему, предлагает ее просто запустить или с восстановлением запуска. Но он после проверки пишет,
что не смог найти ошибку (см. вложение,1-2). Восстановление системы пробовал, сказал, что все файлы на месте, только не захотел менять один файл - см. в вложениях (3 изображение). Помогите поподробнее плиз.
З.Ы.возможно проблема в системном файле?
З.Ы.Ы пишу с планшета
Даны три маски файла, однозначно определяющих имя файла. Известно, что имя этого файла состоит из 10 символов, а расширение из трех. В ответе укажите имя
этого файла. (Например: Spravka.doc)
?*sk*v??*?.j**
m*??**ci*?.**g
*o??o?**ty.*p?
Читайте также
Program tutor;
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"- оператор не хочет выдавать корень из Х. Что я не так делаю? подскажите.
Прошу вас, помогите! Решается оценка!!! Найдите ошибки в программе 1)Program z1; var a:integer; begin a:=10; while
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.
Помогите пожалуйстаа!! Определите результат работы программы, написанной на языке Паскаль. 1) program a5 var i, m:
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.
Написать программу,которая вычисляет модуль вещественного числа S,введённого с клавиатуры и результат увеличивает на 10??? Информатика 8 класс!Напишите
пожалуйста решение в виде такого -Program sacha;и так далее помогите пожалуйста??????
Вы находитесь на странице вопроса "Program Example2;", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.