Программирование информатика 11 класс, помогите

[Jeens]

Вообщем, учительница толком не объяснила, а самому разобраться не получается помогите ребята, пожалуйста вот примеры на Украинском, надеюсь хоть кто-то поймет)
http://cs316923.vk.me/v316923477/57f4/fHxdhnQa0h8.jpg - Там 3 задания, нам дают по 2 варианта -_-, так что вот еще : http://cs316923.vk.me/v316923477/57fe/3f4o6DjD-VQ.jpg
Спасибо большое ребята, если поможете буду должен.

[ZX Spectrum-128]

Язык программирования какой? Тьфу ты, перегрелся похоже

For i:=1 to n do
  If (i mod 3=0) And (b[i]=10) then
    B[i]:=0;

B-1/3

[Jeens]

Сообщение от ZX Spectrum-128

Язык программирования какой?

Паскаль, я ведь вроде в теме паскаля создал)

[ZX Spectrum-128]

Я правильно задачу перевел? Каждый третий элемент массива, равный 10?

[Jeens]

Сообщение от ZX Spectrum-128

Я правильно задачу перевел? Каждый третий элемент массива, равный 10?

Да, но там 6 задач и все их мне нужно решить, я вообще ничего не понимаю)

[Vanta11a]

А что автор сам сделал? Писать

вообще ничего не понимаю

все равно, что сознаваться в полной деградации мозга.

Какой аспект непонятен? Как ты(автор) предполагаешь решать задачи (хотя бы на уровне алгоритма)?

[Jeens]

Сообщение от Vanta11a

А что автор сам сделал? Писать

все равно, что сознаваться в полной деградации мозга.

Какой аспект непонятен? Как ты(автор) предполагаешь решать задачи (хотя бы на уровне алгоритма)?

Я просто ничего не понимаю, можете помочь сделать хоть 1 вариант, годовая контрольная.

[Vanta11a]

Т.е. год пинать фаллические органы - это нормально? Ни за что не поверю, что годовая контрольная по программированию внезапно появилась.

У Вас сейчас 2 варианта:
1) штудируете литературу, получаете базовые навыки, пробуете писать программы самостоятельно, ну а мы будем поправлять/направлять
2) платите практически любому из здесь присутствующих некоторую денежку, после чего он пишет нужные Вам программы

[Smitt&Wesson]

Нэ турбуйся хлопче. Корявками писати не вмiешь, так нэ ображайся на тэ, шо тобi тут кажуть.

[Mad_Cat]

program v15_1;
var x:real;
begin
readln(x);
if (x>-3) and (x<=0) then writeln(abs(x)-2);
if (x=49) or (x=1)   then writeln(sqrt(x)+2);
end.}

program v15_2;
var x:array[1..20] of real;
i,c:integer;
begin
Randomize; c:=0;
for i:=1 to 20 do
begin
x[i]:=random(30);
if x[i]=10 then c:=c+1;
write(x[i],' ');
end;
writeln;
writeln(c);
end.

program v15_3;
var x:array[1..20] of real;
i,c:integer; s:real;
begin
Randomize; s:=0;c:=0;
for i:=1 to 20 do
begin
x[i]:=random(30)-15;
if not odd(c) and (x[i]<-5) then begin c:=c+1;s:=s+x[i];end;
write(x[i],' ');
end;
writeln;
writeln(s);
end.