Новые сообщения · Правила  
Модератор форума: Berestovskiy  
Задачи с массивами
const
Q=100;
var
a:array[1..Q]of integer;i,c,n,m:integer;;
begin
writeln('Введите число M: ');read(m);
writeln('Введите размер массива:' );read(n);
for i:=1 to n do begin
read(a[i]);
if a[i]>m then begin a[i]:=sqr(a[i]);c:=c+1;end;end;
if c=0 then writeln('В массиве чисел больших чем M нет') else
for i:=1 to n do
write(a[i],' ');
end.

"Спасибо" принимается повышением репутации ( Зелёный плюсик:) )


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
81 | Автор: Berestovskiy | 2012-06-15, 00:01   |  Репутация: [ + 211 ]
держи:
Randomize;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
a[i,j]:=random(10)+1;
Write(a[i,j]:4);
end;
writeln;
end;
readln;
end.
82 | Автор: equivalent | 2012-06-15, 00:01 | Изменено: equivalent - Вс, 2011-04-17, 14:30   |  Репутация: [ + 0 ]
delete
83 | Автор: HWOARANG | 2012-06-15, 00:01 | Изменено: HWOARANG - Вт, 2011-05-17, 00:00   |  Репутация: [ + 20 ]
83 | Автор: 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.
84 | Автор: HWOARANG | 2012-06-15, 00:01   |  Репутация: [ + 20 ]
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
85 | Автор: HWOARANG | 2012-06-15, 00:01   |  Репутация: [ + 20 ]
85 | Автор: HWOARANG | 2012-06-15, 00:01   |  Репутация: [ + 20 ]
правильно

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
86 | Автор: Berestovskiy | 2012-06-15, 00:01   |  Репутация: [ + 211 ]
Quote (Tolian92)
3)В квадратной матрице К (5*5), элементами которой являются шестибуквенные слова, найти слово, в котором первый символ - буква А , и заменить на первое слово, в котором не будет ни одной буквы А .


Объясни мне, пожалуйста, как в строке из пяти символов вмесить шестибуквенное слово?))


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
87 | Автор: Berestovskiy | 2012-06-15, 00:01   |  Репутация: [ + 211 ]
завтра утром напишу код

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
88 | Автор: Berestovskiy | 2012-06-15, 00:01   |  Репутация: [ + 211 ]
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
89 | Автор: Berestovskiy | 2012-06-15, 00:01   |  Репутация: [ + 211 ]
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
90 | Автор: Berestovskiy | 2012-06-15, 00:01   |  Репутация: [ + 211 ]
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
91 | Автор: Berestovskiy | 2012-06-15, 00:01   |  Репутация: [ + 211 ]
ссылку на среднее геометрическое или сам объясни

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
92 | Автор: Berestovskiy | 2012-06-15, 00:01   |  Репутация: [ + 211 ]
Спасибо!
93 | Автор: axel2008 | 2012-06-15, 00:01   |  Репутация: [ + 0 ]
93 | Автор: axel2008 | 2012-06-15, 00:01   |  Репутация: [ + 0 ]
помогите дописать

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.

94 | Автор: andreis459 | 2012-06-15, 00:01 | Изменено: andreis459 - Сб, 2011-03-26, 22:24   |  Репутация: [ + 0 ]
простите, но тут программа возводите каждое число массива в квадрат, а мне бы нужно произведение их(
95 | Автор: enable23 | 2012-06-15, 00:01   |  Репутация: [ + 0 ]
95 | Автор: enable23 | 2012-06-15, 00:01   |  Репутация: [ + 0 ]
Program matriza;
const
N=5;
M=5;
Var
a: array[1..N,1..M] of integer;

вот тут такой момент, иначе константы не будут иметь смысла вовсе:)


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
96 | Автор: Berestovskiy | 2012-06-15, 00:01   |  Репутация: [ + 211 ]
Сегодня после пар - будет код, просто сейчас сонный ещё:)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
97 | Автор: Berestovskiy | 2012-06-15, 00:01   |  Репутация: [ + 211 ]
она не работает(
98 | Автор: Люб2 | 2012-06-15, 00:01   |  Репутация: [ + 0 ]
Quote (Berestovskiy)
Объясни мне, пожалуйста, как в строке из пяти символов вмесить шестибуквенное слово?))

Я не знаю((
99 | Автор: Tolian92 | 2012-06-15, 00:01   |  Репутация: [ + 1 ]
дан массив 15 на 10
1)найти max и min в массиве
2)среднее арифметическое каждой строчки
3)ср.ариф. столбиков
4)сумму строчек
5)сумму чисел в столбике
6)сумму всех членов

помогите пожайлустааа!!
100 | Автор: firefox | 2012-06-15, 00:01 | Изменено: firefox - Пт, 2012-03-02, 19:44   |  Репутация: [ + 0 ]
Поиск: