15.03.2011, 17:04 | #1 (permalink) |
Member
Регистрация: 15.03.2011
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Обработка массивов
uses crt; var fin,fout:text;k:integer; a:array[1..30,1..10] of integer; s:array[1..30] of real; var i,j:byte; begin assign(fin,'vvod.txt'); randomize; rewrite(fin); for i:=1 to 30 do begin for j:=1 to 10 do begin a[i,j]:=random(5)+1; write (fin,a[i,j]:4); end; writeln(fin); end; close(fin); reset(fin); for i:=1 to 30 do begin k:=0; for j:=1 to 10 do if a[i,j]='4' then k:=k+1; end; close(fin); assign(fout,'vvod2.txt'); rewrite(fout); for i:=1 to 30 do begin s[i]:=s[i]/10; write(fout);end; writeln(fout);end; close(fout); end. |
15.03.2011, 17:04 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Ранее на форуме создавались похожие топики Обработка металла Циклические программы с использованием двумерных числовых массивов Обработка одномерных массивов Обработка txt Обработка строк,массивов,записей |
15.03.2011, 17:30 | #2 (permalink) |
Member
Регистрация: 15.03.2011
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
всё.нашла ошибку!!!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|