Исправить код программы

@the_landtest · Регистрация: 24.05.2015

Author24 — интернет-сервис помощи студентам

Дан код необходимо исправить его:

Pascal

uses ctr;
const
Sz=100;
var
a,b:array [1..Sz] of integer;
aN:integer;
bN:integer;
begin  aN:=20;
for var i:=1 to aN do
a[i]:=Radom(10);
writeln ('???: ');
for var i:=3 to aN do
write(a[i],'');
writeln;
bN:=-5;
for var i:=1 to aN do
if a[i] mod 2 = 0
begin
bN+=1;
b[bN]:=a[i];
end;
for var i:=1 to bN do
write(b[i,'');
end

@volvo · 24.05.2015, 13:32

Ну так в чем проблема? Бери и исправляй. Компилируешь, смотришь на ошибку, исправляешь ее, смотришь на следующую - опять исправляешь. И так - до тех пор, пока ошибок не останется.

Не по теме:

Устроили из форума филиал онлайн-компилятора, блин. Ошибки им исправь. Ни тебе "здрасьте", ни "пожалуйста", ни задания нормального, какой-то быдлокод (да еще для другого компилятора написанный) выложат - "исправить!!!". Дома будешь командовать. Когда вырастешь, и когда у тебя будет дом...

@JokeR.BY · 24.05.2015, 21:44

Не по теме:

:rofl: огнетушитель этому господину!

@volvo Супер-модератор 32830 / 21168 / 8147 Регистрация: 22.10.2011 Сообщений: 36,428 Записей в блоге: 8
	24.05.2015, 13:32	2
	Ну так в чем проблема? Бери и исправляй. Компилируешь, смотришь на ошибку, исправляешь ее, смотришь на следующую - опять исправляешь. И так - до тех пор, пока ошибок не останется. Не по теме: Устроили из форума филиал онлайн-компилятора, блин. Ошибки им исправь. Ни тебе "здрасьте", ни "пожалуйста", ни задания нормального, какой-то быдлокод (да еще для другого компилятора написанный) выложат - "исправить!!!". Дома будешь командовать. Когда вырастешь, и когда у тебя будет дом... 1

@JokeR.BY
	24.05.2015, 21:44 Исправить код программы #3
	Не по теме: :rofl: огнетушитель этому господину! 0

Опции темы