12.05.2010, 22:29 | #33 (permalink) |
Member
Регистрация: 09.05.2010
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
program zadacha1;
uses crt; const n=10; var i:integer; q:array [1..n] of integer; begin clrscr; randomize; writeln ('lybie 10 chisel'); for i:=1 to n do begin q[i]:=random (100); write (q[i],' '); end; writeln; writeln ('iz nih nugnie'); for i:=1 to n do if (q[i] mod 2=0) and (q[i] mod 4<>0) then write (q[i],' '); readln end. ии.... Program bukvaa; uses crt; const n=10; m=9; var i,j:integer; s:real; a:array[1..n,1..m] of real; begin clrscr; writeln('vvedite massiv'); for i:=1 to n do for j:=1 to m do begin write('a[',i,',',j,']= '); readln(a[i,j]); end; writeln; for i:=1 to n do begin for j:=1 to m do write(a[i,j]:6:2); writeln; end; writeln('nagmite "Enter" '); readln; for j:=1 to m do begin s:=0; for i:=1 to n do s:=s+a[i,j]; s:=s/n; writeln('srednee arifmeticheskoe elementov ',j,' stolbza',s:6:2); end; readln; end.(отдельное спасибо за эту программу Vladimir S) |
12.05.2010, 22:35 | #35 (permalink) |
Member
Регистрация: 09.05.2010
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
до завтра это крайний срок(((
если вы не будете против я тоже буду пытаться сделать,потом сверю с вашим если у меня что получиться??? |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
20.05.2010, 19:55 | #39 (permalink) |
Member
Регистрация: 09.05.2010
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите в решении еще двух задач пожалуйста!!!
Даны целые числа а1,…,а50. Получить последовательность b1,…,b50, которая отличается от исходной тем, что все члены удвоены. Дана действительная матрица 18 х n. Найти значение наибольшего по модулю элемента матрицы, а также индексы данного элемента. |
21.05.2010, 05:53 | #40 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Даны целые числа а1,…,а50. Получить последовательность b1,…,b50, которая отличается от исходной тем, что все члены удвоены.
Код:
program mas1; uses crt; var a: array[1..50] of integer; b: array[1..50] of integer; i,p:integer; begin randomize; writeln('Выберите способ заполнения массива (1-авто, 2-вручную)'); repeat read(p); until (p=1) or (p=2); for i:=1 to 50 do begin if p=1 then a[i]:=random(40) else read(a[i]); b[i]:=2*a[i]; end; writeln; writeln('a[i] b[i]'); for i:=1 to 50 do begin writeln(a[i]:5, b[i]:5); end; readln; end.
__________________
Убить всех человеков! |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|