Изучал ли кто паскаль?

[Exxeli(809)]

Кароче , такая тема . Мне завтра дадут пизды , огромной пизды если я не сдам преподу прогу вот по этому:

 

Ввести данные в массив A(5,5) и найти сумму положительных чисел.

[Olone11]

Кароче , такая тема . Мне завтра дадут пизды , огромной пизды если я не сдам преподу прогу вот по этому:

 

Ввести данные в массив A(5,5) и найти сумму положительных чисел.

бл я такое делал в 8 класе

[Exxeli(809)]

Классно , я тоже такое делал в 9 . Только вот блять как уже не ебу

[Droed]

Автор лох. В мастерскую иди.

[WitheR]

Кароче , такая тема . Мне завтра дадут пизды , огромной пизды если я не сдам преподу прогу вот по этому:

 

Ввести данные в массив A(5,5) и найти сумму положительных чисел.

Изучал. Ты будешь нырять в пизду, огромную пизду.

[justice_st]

Изучал. Потратил время зря :NYnate:

int sum=0;

for i = 1 to 5

for j= 1 to 5

begin

read(mas[i,j]);

if mas[i,j]>0 then sum+=mas[i,j]

end

как то так

[sol1tary]

я такое в 3 классе мог решить

[O5Dota]

не, ну это чересчур просто  :NYavtorklif:

[OneStepAhead]

разберись и напиши сам, а то тебе дадут ещё большей пизды, если спалят, что ты такую хуйню не смог самостоятельно написать.

[AVTORKLIF]

2й топик, пока

[prodota]

разберись и напиши сам, а то тебе дадут ещё большей пизды, если спалят, что ты такую хуйню не смог самостоятельно написать.

 

бтв сижу прогаю, ебал рот массивов

[Dezart]

изучал 3 года в школе. тупая хуета ;d

[Tmn.Steam]

айтишники уебки  :NYnate:

[OneStepAhead]

разберись и напиши сам, а то тебе дадут ещё большей пизды, если спалят, что ты такую хуйню не смог самостоятельно написать.

 

бтв сижу прогаю, ебал рот массивов

вообще не люблю прогу, на первом курсе любил, там вот такая же хуйня как у автора была, которую с рожей Яо Минга можно решать, а щас пиздец какой то :NYsosew:

[Exxeli(809)]

var a:array[1..5,1..5] of integer; i,j,s:integer;

begin

for i:=1 to 5 do

for j:=1 to 5 do

readln(a[i,j]);

for i:=1 to 5 do

for j:=1 to 5 do

begin

if a[i,j]>0 s:=s+a[i,j];

end;

writeln(s);

readln;

end.

 

 

Вроде что-то получилось , хз рабоет , нет.

[prodota]

разберись и напиши сам, а то тебе дадут ещё большей пизды, если спалят, что ты такую хуйню не смог самостоятельно написать.

 

бтв сижу прогаю, ебал рот массивов

вообще не люблю прогу, на первом курсе любил, там вот такая же хуйня как у автора была, которую с рожей Яо Минга можно решать, а щас пиздец какой то :NYsosew:

 

ты ж защитник инфы...

у меня тип неправильно выход из лабиринта находит(

[ZAPTOZ]

Здравствуйте.

Я преподаю информатику у автора.

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

[Olone11]

Здравствуйте.

Я преподаю информатику у автора.

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

:NYbuba:

[justice_st]

var a:array[1..5,1..5] of integer; i,j,s:integer;

begin

s:=0;

for i:=1 to 5 do

for j:=1 to 5 do

  begin

      readln(a[i,j]);

      if (a[i,j]>0) then s:=s+a[i,j];

  end;

writeln(s);

readln;

end.

вроде так синтаксис не помню

[OneStepAhead]

разберись и напиши сам, а то тебе дадут ещё большей пизды, если спалят, что ты такую хуйню не смог самостоятельно написать.

 

бтв сижу прогаю, ебал рот массивов

вообще не люблю прогу, на первом курсе любил, там вот такая же хуйня как у автора была, которую с рожей Яо Минга можно решать, а щас пиздец какой то :NYsosew:

 

ты ж защитник инфы...

у меня тип неправильно выход из лабиринта находит(

это тут к чему?