|
1
|
|
| Bad_Boy | Дата: Суббота, 22.08.2009, 20:37 | Сообщение # 1 |
|
Рядовой
Группа: Пользователи
Сообщений: 7
Статус: Offline
| Ребят помогите пожалуйсто...:help:
Определить минимальный элемент каждой чётной строки матрицы А[M,N]
Сколько стоит???
|
| |
| |
| Student | Дата: Воскресенье, 23.08.2009, 14:27 | Сообщение # 2 |
 Генералиссимус
Группа: Администраторы
Сообщений: 15
Статус: Offline
| Держи, прога лёгкая так что бесплатно 
uses crt;
type mas =array[1..100,1..100]of integer;
var i,j,n,m,min:integer;
a:mas;
begin
clrscr;
textcolor(11);
write('Vvedite n ');
textcolor(12);
readln(n);
textcolor(11);
write('Vvedite m ');
textcolor(12);
readln(m);
for i:=1 to n do
for j:=1 to m do
begin
textcolor(11);
writeln('a[',i,',',j,']= ');
textcolor(12);
readln(a[i,j]);
end;
textcolor(13);
for i:=1 to n do
begin
for j:=1 to m do
write(' ',a[i,j]);
writeln;
writeln;
end;
for i:=1 to n do
begin
min:=a[i,1];
if i mod 2 = 0 then
begin
for j:=1 to m do if a[i,j]<min then min:=a[i,j];
textcolor(13);
write('minemum v strochke #',i,'=');
textcolor(12);
writeln(min);
end;
end;
readln;
end.
|
| |
| |
| Bad_Boy | Дата: Среда, 26.08.2009, 19:28 | Сообщение # 3 |
|
Рядовой
Группа: Пользователи
Сообщений: 7
Статус: Offline
| Спасибо чуваки 
|
| |
| |
| agarich | Дата: Вторник, 24.11.2009, 20:38 | Сообщение # 4 |
|
Рядовой
Группа: Пользователи
Сообщений: 2
Статус: Offline
| Помогите решить 2 задачи,нужно для лабораторной работы!
1 - Вводится длина вектора и значения его элементов. Подсчитать количество элементов, равных заданному значению.
2 - Ввести размерность матрицы и значения ее элементов. Построить вектор В, где В (i) - число неотрицательных элементов в i-ой строке.
заранее спасибо!!
|
| |
| |
| Dock^ | Дата: Вторник, 24.11.2009, 21:33 | Сообщение # 5 |
 Генералиссимус
Группа: Администраторы
Сообщений: 19
Статус: Offline
| вот вторая задача пока uses crt;
type mass=array[1..100,1..100] of integer;
type mass2=array[1..100] of integer; var a:mass;
b:mass2;
i,j,kol,n,m:byte; begin
clrscr;
writeln('Vvedite razmer matricy M na N:');
readln(m);
readln(n);
writeln('Vvedite elementy matricy:');
for i:=1 to m do
for j:=1 to n do
begin
write('a[',i,',',j,']:');
readln(a[i,j]);
end;
writeln('Poluchennaja matrica:');
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
kol:=0;
for i:=1 to m do
begin
for j:=1 to n do
begin
if (a[i,j]>0) then kol:=kol+1;
end;
b[i]:=kol;
kol:=0;
end;
writeln('Poluchennyj wektor:');
for i:=1 to m do
write(b[i],',');
readln;
end.
|
| |
| |
| Student | Дата: Вторник, 24.11.2009, 23:25 | Сообщение # 6 |
|
Генералиссимус
Группа: Администраторы
Сообщений: 15
Статус: Offline
| uses crt;
type mas=array[1..100] of integer;
var a:mas;
n,i,z,k:integer;
begin
write('Vvedite razmer vectora ');
readln(n);
writeln('Vvedite elementi vectora ');
for i:=1 to n do readln(a[i]);
write('Vvedite iskomoe zna4enie ');
readln(z);
k:=0;
for i:=1 to n do if a[i]=z then k:=k+1;
write('koli4estvo elementov vectora ravnix iskomomu zna4eniu= ',k);
readln; end. вот вторая
|
| |
| |
| agarich | Дата: Среда, 25.11.2009, 11:40 | Сообщение # 7 |
|
Рядовой
Группа: Пользователи
Сообщений: 2
Статус: Offline
| Спасибо вам огромное!!!!!!!
|
| |
| |
| ДилиЯ | Дата: Воскресенье, 29.11.2009, 01:22 | Сообщение # 8 |
 Рядовой
Группа: Пользователи
Сообщений: 6
Статус: Offline
| На вас последняя надежда, помогите:
Подсчитать количество отрицательных элементов. Т.е. составить программу, которая выполняет заданную операцию над одномерным массивом из 10 элементов.
|
| |
| |
| Dock^ | Дата: Воскресенье, 29.11.2009, 16:26 | Сообщение # 9 |
|
Генералиссимус
Группа: Администраторы
Сообщений: 19
Статус: Offline
| 10 минут подожди
|
| |
| |
| Dock^ | Дата: Воскресенье, 29.11.2009, 16:31 | Сообщение # 10 |
|
Генералиссимус
Группа: Администраторы
Сообщений: 19
Статус: Offline
| uses crt; type mas=array[1..10] of integer;
var a:mas;
i,kol:byte; begin
clrscr;
writeln('Vvedite elementy massiva:');
for i:=1 to 10 do
readln(a[i]);
writeln('Poluchennyj massiva:');
kol:=0;
for i:=1 to 10 do
begin
write(a[i]:4);
if (a[i]<0) then inc(kol);
end;
writeln;
writeln('Kolichestvo otricatelnyh chisel:',kol);
readln;
end.
|
| |
| |
| Dock^ | Дата: Воскресенье, 29.11.2009, 16:34 | Сообщение # 11 |
|
Генералиссимус
Группа: Администраторы
Сообщений: 19
Статус: Offline
| в следующий раз создавайте отдельно темы,а также у темы должно быть название.
|
| |
| |
| ДилиЯ | Дата: Воскресенье, 29.11.2009, 22:11 | Сообщение # 12 |
|
Рядовой
Группа: Пользователи
Сообщений: 6
Статус: Offline
|  СПАСИБО
|
| |
| |
| Krash | Дата: Четверг, 10.12.2009, 11:57 | Сообщение # 13 |
 Рядовой
Группа: Пользователи
Сообщений: 4
Статус: Offline
| Люди, помогите, плиз!
надо найти максимальный и минимальный элемент в массиве и поменять их местами
|
| |
| |
| Student | Дата: Суббота, 12.12.2009, 12:38 | Сообщение # 14 |
|
Генералиссимус
Группа: Администраторы
Сообщений: 15
Статус: Offline
| Вот держи... type mas=array[1..100] of integer;
var a:mas;
i,nm,nx,b,n:integer;
begin
write('Vvedite razmer massiva ');
readln(n) ;
for i:=1 to n do begin
write('a[',i,']= ');
readln(a[i]);
end; nm:=1;
nx:=1;
for i:=1 to n do
begin
if a[nm]<a[i] then nm:=i;
if a[nx]>a[i] then nx:=i;
end;
writeln('min =',a[nx]);
writeln('max =',a[nm]);
b:=a[nm];
a[nm]:=a[nx];
a[nx]:=b;
writeln('Massiv: ');
for i:=1 to n do write(a[i],' '); readln;
end.
|
| |
| |
| ДилиЯ | Дата: Суббота, 12.12.2009, 23:02 | Сообщение # 15 |
|
Рядовой
Группа: Пользователи
Сообщений: 6
Статус: Offline
| Спасибо за то, что вы есть! Вот небольшая задачка:
Создать программу для удаления из предложения каждого второго слова. Предложение вводится с клавиатуры и сохраняется в памяти программы в виде текстовой строчки. Использовать команду обработки строчек и символов.
|
| |
| |
