|
Задачи с массивами
|
|
delete
№ 81 | Автор: HWOARANG |
2012-06-15, 00:01 | Изменено: HWOARANG - Вт, 2011-05-17, 00:00
|
Репутация: [ + 20 ]
|
|
|
№ 81 | Автор: HWOARANG |
2012-06-15, 00:01 | Изменено: HWOARANG - Вт, 2011-05-17, 00:00
|
Репутация: [ + 20 ]
|
|
|
|
var a:array[1..100,1..100] of integer; n,m,i,j,k,c,g,sum1,sum2:integer;
begin
read (n,m);
for i:=1 to n do
for j:=1 to m do
read (A[i,j]);
c:=A[1,1];
k:=1; g:=1;
for i:=1 to n do
for j:=1 to m do
if A[i,j]<c then begin
k:=i; g:=j; c:=A[i,j]; end;
for i:=1 to n do
sum1:=sum1+A[i,g];
for j:=1 to m do
sum2:=sum2+A[k,j];
writeln ('Summa stolbca ',sum1);
writeln ('Summa stroki ',sum2);
readln
end.
|
|
|
|
var A:array[1..100] of integer; max,n,i,l:integer;
begin
read (n);
for i:=1 to n do
read (A[i]);
max:=A[1];
l:=1;
for i:=2 to n do
if A[i]>max then begin max:=A[i]; l:=i; end;
i:=A[1]; A[1]:=max; A[l]:=i;
for i:=1 to n do
write (A[i],#32);
readln
end
|
|
|
|
правильно
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (Tolian92) 3)В квадратной матрице К (5*5), элементами которой являются шестибуквенные слова, найти слово, в котором первый символ - буква А , и заменить на первое слово, в котором не будет ни одной буквы А .
Объясни мне, пожалуйста, как в строке из пяти символов вмесить шестибуквенное слово?))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
завтра утром напишу код
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
var
a:array[1..100]of integer;
i,n,k,m,p:integer;
begin
read(n);
for i:=1 to n do begin
read(a[i]);
if a[i]>0 then m:=m+1;
if a[i]<0 then k:=k+1;end;
for i:=n downto 1 do
if a[i]>0 then p:=i;
writeln(k,m,p);
for i:=1 to n do
write(a[i],' ');
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
var
a:array[1..100]of integer;
c,i,n,q,b,s:integer;
begin
read(n,q,b);
s:=0;c:=2;
a[1]:=q;a[2]:=b;
repeat
for i:=1 to c do
s:=s+a[i];
c:=c+1;
a[c]:=s;
s:=0;
until c=n;
for i:=1 to n do
write(a[i],' ');
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
i,j:byte;
sum : integer;
begin
clrscr;
randomize;
writeln('vvedite elementi massiva:');
sum := 0;
For i:=1 to n do begin
For j:=1 to n do
begin
a[i,j] := random(10);
if (n-j+1)<i then
begin
TextColor(12);
sum := sum + a[i,j];
end
else TextColor(8);
write(a[i,j]:4);
end;
writeln;
end;
writeln;
TextColor(15);
writeln('sum= ',sum);
readln;
end.
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасио
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
ссылку на среднее геометрическое или сам объясни
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
|
помогите дописать program EXAMPLE_6;
uses crt;
var m : array [1..50] of integer;
n, i : byte;
a, z: integer;
begin
clrscr;
writeln('Задание 6. Вариант 5');
write('задайте длину массива ( <= 50 ):');
readln (n);
writeln('введите исходный массив');
for i := 1 to n do
begin
write ('m[',i,']=');
readln (m[i]);
end;
writeln ('исходный массив');
for i := 1 to n do write(m[i]:6); writeln;
writeln ('Программа завершена .Нажмите Enter.');
readln;
end.
№ 92 | Автор: andreis459 |
2012-06-15, 00:01 | Изменено: andreis459 - Сб, 2011-03-26, 22:24
|
Репутация: [ + 0 ]
|
|
|
|
|
простите, но тут программа возводите каждое число массива в квадрат, а мне бы нужно произведение их(
|
|
|
|
Program matriza;
const
N=5;
M=5;
Var
a: array[1..N,1..M] of integer; вот тут такой момент, иначе константы не будут иметь смысла вовсе:)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Сегодня после пар - будет код, просто сейчас сонный ещё:)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
Quote (Berestovskiy) Объясни мне, пожалуйста, как в строке из пяти символов вмесить шестибуквенное слово?))
Я не знаю((
|
|
|
|
дан массив 15 на 10
1)найти max и min в массиве
2)среднее арифметическое каждой строчки
3)ср.ариф. столбиков
4)сумму строчек
5)сумму чисел в столбике
6)сумму всех членов
помогите пожайлустааа!!
№ 98 | Автор: firefox |
2012-06-15, 00:01 | Изменено: firefox - Пт, 2012-03-02, 19:44
|
Репутация: [ + 0 ]
|
|
|
|
Средняя геометрическая величина ( или Среднее геометрическое ) получается от перемножения данных величин и извлечения из этого произведения корня, показатель которого равен числу этих величин:
$$G=\sqrt[n]{a_{1}*a_{2}...*a_{n}}$$Добавлено (11.05.12, 17:28)
---------------------------------------------
Средняя геометрическая величина ( или Среднее геометрическое ) получается от перемножения данных величин и извлечения из этого произведения корня, показатель которого равен числу этих величин:
$$G=\sqrt[n]{a_{1}*a_{2}...*a_{n}}$$ Добавлено (13.05.12, 14:53)
---------------------------------------------
решил вот код может кому пригодится
Code program massiv_1;
var X:array[1..100] of real;
i,n,k:integer;
s,p:real;
begin
writeln('vvedite kolichestvo elementov');
readln(n);
k:=0;
s:=1;
for i:=1 to n do begin
write('X[',i,']=');
readln(X[i]);
if (abs(X[i])>=1.5) and (abs(X[i])<=2.3) and (X[i]<0) then begin
k:=k+1;
s:=s*abs(X[i]);
end;
end;
if (k=0) and (s=1) then
writeln('ne udoletvoryaet usloviya')
else
p:=exp((1/k)*ln(s));
if odd(k)=true then p:=p*(-1);
writeln('srednee geometricgeskoe ',p:0:2);
for i:=1 to n do
if (abs(X[i])>=1.5) and (abs(X[i])<=2.3) and (X[i]<0) then
write(i,' ');
readln;
end. |
|
|
|
оО..
и что же твоя "прога" делает?:)))
считывает массив, показывает все его элементы с индексом,и показывает потом все его элементы без индекса..
смысл такое делать?:)
или объясни что она вообще должна делать?:)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
