|
Задачи с массивами
|
|
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
|
|
|
|
держи:
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.
|
|
|
|
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.
№ 94 | Автор: 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)сумму всех членов
помогите пожайлустааа!!
№ 100 | Автор: firefox |
2012-06-15, 00:01 | Изменено: firefox - Пт, 2012-03-02, 19:44
|
Репутация: [ + 0 ]
|
|
|
|
