QBasic: Массив x(20) заполнить целыми случайными числами (1-100)...

[ski11]

Здравствуйте, люди добрые, слёзно прошу - помогите с двумя задачками, я как студент-заочник абсолютно далёк от программирования, надеюсь на вас, заранее спасибо, вот эти две задачки:

1. Массив X(20) заполнить целыми случайными числами в диапазоне 1-100, Элементы в диапазоне 25-75 переставить в начало массива X. Массив вывести до и после изменения, перестановку выполнить без использования дополнительного масива.

2. Матрицы X(5,8) Y(5,8) заполнить целыми случайными числами в диапазоне -100 - 100, Определить количества N положительных элементов в каждом столбце, найти номер M столбца, в котором количество положительных элементов максимально, вывести A, M, N.

[RUSt88]

вывести A, M, N.

А что такое есть А?

[RUSt88]

на delphi, c++ нет проблем помогу

[Анатоль]

Вот код к первой задаче.
program prog1;
var
Mas : array[1..20] of longint;
i,j,kol,buf : longint;
begin
randomize;
for i := 1 to 20 do
Mas[i] := random(101);
for i := 1 to 20 do
write(Mas[i],' ');
writeln;
kol := 1;
for i := 1 to 20 do
if (Mas[i] < 76) and (Mas[i] > 24) then
begin
buf := mas[i];
mas[i] := mas[kol];
mas[kol] := buf;
inc(kol);
end;
for i := 1 to 20 do
write(mas[i],' ');
end.

[RUSt88]

program prog1;
var
Mas : array[1..20] of longint;
i,j,kol,buf : longint;
begin
randomize;
for i := 1 to 20 do
Mas[i] := random(101);
for i := 1 to 20 do
write(Mas[i],' ');
writeln;
kol := 1;
for i := 1 to 20 do
if (Mas[i] < 76) and (Mas[i] > 24) then
begin
buf := mas[i];
mas[i] := mas[kol];
mas[kol] := buf;
inc(kol);
end;
for i := 1 to 20 do
write(mas[i],' ');
end.

это разве qbasic? или я съел грибочков не тех?

[ski11]

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

на delphi, c++ нет проблем помогу

то то и оно, что задание именно на QB=(
кто-нибуть жеж наверняка может, более того, мне кажется что для вас, гуру, скажем так, это как два пальца об асфальт)

to Анатоль: RUSt88 прав, даже я, профан в проггерстве, глубоко сомневаюсь что это бэйсик.

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

А что такое есть А?

я думаю, что в задании подразумеваются эти самые матрицы.

[RUSt88]

из-за твоей задачи никто же не будет изучать синтаксис qbasic !
если хочешь за 350 р индивидуально для тебя напишу задачи на етом басике

[ski11]

RUSt88, почему обязательно учить синтаксис? разве никто вообще не знает qb?
кстати, будь у меня 350 р. - я бы с радастью согласился, но сессию на работе не оплачивают, и я вчера потратил последние 150 р. на еду.
ну эт так, лирическое отступление чтоб никто не подумал что я жлоб который ведётся изза денег=)
народ, хотяб одну из задач.
RUSt88, мб в рассрочку?))

[RUSt88]

к какому сроку?
пиши на nexx_mp@mail.ru, договоримся