Автор
Тема

Странник
Вот программа на паскале abc помогите найти ошибку
Вот программа на паскале abc помогите найти ошибку
program z1;
randomaze;
const n=10;
var m:array [1..n] of integer;
i,k:integer;
begin
m:=random[20]-10;
writeln m;
if m div 2=0;
then i:=i+1;
writeln('i', ,');
end;
end. 
#326336

Странник
randomize пишется! 
#326349

Странник
не-по-мо-га-ет 
#326360

Странник
Посмотрел внимательно. Программа - полный бред. Надо переписать всё. 
#326366

Странник
Задание по информатике))Написать программу с массивом и к каждому четному прибавить 1

и еще с командой рандом 
#326370

Странник
program z1;
const n=10;
var m:array [1..n] of integer;
i:integer;
begin
//Реиницаализируем генератор случайных чисел
randomize;
//Заполняем
for i:=1 to 10 do
m:=random(20)-10;

//Выводим
for i:=1 to 10 do
write(m, ' ');

//Прибавляем к чётным 1
for i:=1 to 10 do
if i mod 2 = 0 then m:=m+1;

//Переносим строку
writeln;

//Выводим
for i:=1 to 10 do
write(m, ' ');

end.

Сделал всё в своём цикле, дабы Вы разобрались. 
#326404

Странник
Спасибо) 
#326406

Профессионал
sergey-from-orel,
-1
вы испортили карму себе и вопрошающему. срочно сотрите пост, пока он скокпипастить не успел! 
Мои сообщения на данном форуме являются моим личным мнением, не выражающим официальную позицию работодателя. #326420

Странник
zlodey, пусть zerojj разбирается дальше. Всё равно от него так просто не отстанут, надеюсь. 
#326429

Странник
Program z1;
const n=10;
var m:array [1..n] of integer;
i:integer;
begin randomize;
for i:=1 to n do begin
m[ i ]:=random (200)-100;
write(m[ i ],' ');
end;
for i:=1 to n do
if m[ i ] mod 2=0
then m[ i ]:=i+1;
writeln (m[ i ]);
end. 
#326749

Новичок
Помогите исправить ошибку в программе паскаль abc

program p1 ;
var v,b,c,d,i,a :integer;
begin
readln(a);
a:=0;
for i:=100 to 999 do begin
v:=i mod 10;
b:=i div 100 mod 10;
c:=i mod 100 div 10;
if i=((vb)or(bc)or(bd)or(cd)or(ac)or(ad)) then
a:=v+b+c+d;
writeln('трёзначное число в котором все числа разные ',i) end ;
end.
#453544

Наблюдающий
cyfqgth2000, вся эта программа - одна большая ошибка.

if i=((vb)or(bc)or(bd)or(cd)or(ac)or(ad)) then
a:=v+b+c+d;

Что здесь курил аффтар? 
I know the one who waits Satan is his name, Is across the bridge of death There he stands in flame #455157

Популярное
на форуме

Отзывы о ресторанах


Вход
Регистрация
Отправляя заявку, вы соглашаетесь с условиями
политики конфиденциальности
Восстановление пароля

Пожаловаться