Программирование, т. 6

что-то типа такого... у вас как то все совсем по-другому

ну тут ты вводишь количество элементов,

потом вводишь значение каждого элемента, 

for i:=1 to n do write (x:3);  - вот это я слаб чтобы понять

потом выбираешь во второй массив все четные

остается походу только умножить

решение на изичах. Выведи в конце ноль и когда будешь забивать при преподе элементы в массив тоже поставь ноль

ну тут ты вводишь количество элементов,

потом вводишь значение каждого элемента, 

for i:=1 to n do write (x:3);  - вот это я слаб чтобы понять

потом выбираешь во второй массив все четные

остается походу только умножить

 

решение на изичах. Выведи в конце ноль и когда будешь забивать при преподе элементы в массив тоже поставь ноль

напиши текстом плиз, буду благодарен

напиши текстом плиз, буду благодарен

воткни куда-нибудь в конец. Нихуя не заработает, но препода на тройку сможешь уломать

p:=1;
for i:=1 to n do
p:=p*y[i];

Разве в 9162 не решение задачи?

Разве в 9162 не решение задачи?

Там что-то неправильно...

 

Разве в 9162 не решение задачи?

Там что-то неправильно...

 

ну  в 16 строчке точно не хватает ; 

(код рабочий, но не умножает)

Var x,y:array [1..100] of integer; 
Var i,n,p:integer; 
begin 
Writeln (' Vvedite kol - vo elementov '); 
Readln (n); 
for i:=1 to n do begin 
write ('Vvedite ',i, ' element '); 
Readln (x[i]); 
end; 
Writeln (' polycheny chisla '); 
for i:=1 to n do write (x[i]:3); 
writeln; 
writeln (' ymnozhennyie4etnye elementy ') ;
p:= 1;
for i:=1 to n do 
if x[i] mod 2 = 0 then 
begin 
y[i]:=x[i];
p:= p * y[i];
end; 
write (p);
end;

http://pascalabc.net/WDE/ - вот здесь отлаживай эту шелупонь

 

 

Var x,y:array [1..100] of integer; 
Var i,n,p:integer; 
begin 
Writeln (' Vvedite kol - vo elementov '); 
Readln (n); 
for i:=1 to n do begin 
write ('Vvedite ',i, ' element '); 
Readln (x[i]); 
end; 
Writeln (' polycheny chisla '); 
for i:=1 to n do write (x[i]:3); 
writeln; 
writeln (' ymnozhennyie4etnye elementy ') ;
p:= 1;
for i:=1 to n do 
if x[i] mod 2 = 0 then 
begin 
y[i]:=x[i];
p:= p * y[i];
end; 
write (p);
end;

как-то по красоте делать мне офк лень

 

 

http://pascalabc.net/WDE/ - вот здесь отлаживай эту шелупонь

окей, спасибо

вроде получилось блять

^тебе тег

 религия не позволяет юзать? Тебя вообще не смущает, что у других нормально выглядит, а у тебя по-уебански?

^тебе тег

 религия не позволяет юзать? Тебя вообще не смущает, что у других нормально выглядит, а у тебя по-уебански?

смущает, я же нубас, сори

Хотел начать учить Питон, но теперь передумал и хочу выучить пхп. Судя по рынку труда, он популярнее в РФ и потом будет легче найти работу. Кому не сложно посоветуйте с чего начать? Литературу, видео и прочие ресурсы. Без бородатых копипаст плез, про пол года и течки телок 

https://www.codecademy.com/

https://www.codecademy.com/

Спасибо. Помимо этого хотелось бы что-нибудь ещё.

А двапой довел до конца свой курс по пхп?

Точно, у меня где-то было в закладках, надо найти.

Видимо курс не закончен, но хоть что-то.

Для html, css, js какой редактор посоветуете? Вроде вебшторм збс, но он платный и процедура взлома какая-то напряжная.

Пока юзаю sublime. Мож есть че с более удобными сниппетами и автокомплитом "из коробки" для нубаса, чтобы не пришлось ставить 150 плагинов. Глянул vscode, но там либо сниппеты и автокомплит слишком базовые и убогие (по крайней мере в js), или он просто неправильно работает.

гайз, вы можете мне помочь с СРСками по c++, вообще не шарю