Go-ger

Bradyga

Вот этот мост, или другой? Если это он отметь место куда залазить надо

Сегодня прыжки будут?

Когда ещё будут прыжки? И есть ли возростные ограничения?

Я уж понадеялся, что они в конце об турник башкой ударяться.

булочка за 4,50

Без монитора.

Кушаю йоугурт....

Justice спасибо.

Ёще раз прошу помочь в простой программе с процедурами и функциями:

var n,i,j:integer;

Procedure XXX (var a:array [1..100,1..100] of integer);

begin write(' ');

readln(n);

for i:=1 to n do

for j:=1 to n do

a[i,j]:=j*i;

end;

begin

write(XXX(a[i,j]):3);

writeln

end;

end.

Что бы не делал в 4 строчке с конца пишет: что "а" неизвестный индефикатор. И с Подпрограммами функций тоже самое.

TolkienDRR всё равно спасибо тебе и Lakers в написании программы

Вставляю if a='a'/'e' then a:=' '; и вылазиет ошибка "операция непременима к операндам данного типа".

И всётаки как исправить неправилно выводимый ответ, который я описал выше.

Помогите пожалуйста найти ошибку: (Программа заменяет сиволы "А" и "е" на пробелы)

i: integer;
begin
writeln('bvnfghfgj');
readln(a);
for i:= 1 to length (a) do
begin
b:=b+a[i];
if a[i]= 'a' then
b:=' ';
if a[i]='e' then
b:=' ';
end;
writeln(;
end.

Var a,b:string;

ответ выводит правильно если Заменяемая буква стоит в начале, а если заменяемая буква стоит в конце выводит пустоту.

Спасибо, всё ясно и понятно

Помогите кто-нибудь составить программу, на тему: Обработка строк.

Вот текст задачи: Дан текст длиной 10 символов. Слова текста разделены пробелом. Сформировать новый текст, включив в него слова заданного и разделив их двумя пробелами.

Зарание спасибо.

Lakers спасибо

Помогите пожайлуста дописать программу которая: Вычисляет суммы элементов четных строк матрицы

Вот недописанная программа:

const n=7;

var a: array [1..n,1..n] of integer ;

i,j,s1,s2 : integer ;

begin

for i:=1 to n do begin

for j:=1 to n do begin

a[i,j] :=i*j;

write(a[i,j]:5);

end;

writeln

end;

s1:=0;s2:=0;

?

end;

writeln (????);

end.

Зарание спасибо

Punisher, классные демы

На заднем плане справа Чак Норис

Спасибо за помощь Lakers и TolkienDRR

Задача №1

Пример программы для заполнения массива из 20 элементов целыми случайными числами в диапазоне от 0 до 99. и сортировки элементов массива по возрастанию. Оформить вывод сортированного массива и отладить программу.

Const n= 20

Var m :array [1..n] of integer ;

I,j temp for i :=1 to n do

:integer ;

Begin

Randomize ;{инициализация генератора случайных чисел}

m :=random (100) ;{заполнение массива случай. числами в диапазоне от 0 до 99}

{сортировка элементов массива }

for i : = 1to n do

for j:=i+ 1to n do

if m>m[j] then begin

temp :=m;m :=m[j];m[j]:=temp

end

Задача №2

Задан массив действительных чисел. Определить , сколько раз меняется знак в данной последовательности чисел, запомнить номера позиций , в которых происходит смена знака.

Буду очень благодарен за помощь.

Хотелось бы узнать, нормальный ли комп для требовательных игр:

Проц AMD Athlon II x2 6000+ (3100 Mhz)

Мать MSI K9A2 Neo-F (MS-7388)

Видюха ATI Radeon HD 4730 Series (512 Mb)

Винт Seagate Barracuda 250 Gb

Память Hynix 2*1Gb DDR2 800 Mhz

166

бугор - горб

154

нрготь

Что делать? Когда открываю RELOADED файл, вылазеет это:

http://ulanovka.ru/uploads/old_images/users/12219/%D0%91%D0%B5%D0%B7%D1%8B%D0%BC%D1%8F%D0%BD%D0%BD%D1%8B%D0%B9.JPG

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

Аватар