14.06.2012, 22:21 | #1 (permalink) |
Новичок
Регистрация: 06.02.2012
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Паскаль с массивами, ошибка
вот моя программка Program L7V7; uses crt; const n=6; type matr=array [1..n] of integer; var x,y,z:matr; i,k,d,s,a:integer; u:real; begin for i:=1 to n do begin write('x[',i,']='); readln(x[i]); end; for i:=1 to n do begin write('y[',i,'[='); readln(y[i]); end; for i:=1 to n do begin write('z[',i,']='); readln(z[i]); end; begin if x[i]>0 and y[i]>0 and z[i]>0 then begin s:=0; s:=s+x[i]+y[i]+z[i]; k:=k+1; end; end; u:=s/k; end. ПОСЛЕ Z[I]<0 ВЫДАЕТ ЧТО ОПЕРАНДЫ ИМЕЮТ НЕПРИВОДИМЫЕ ТИПЫ?И УКАЗЫВАЕТ НА i |
14.06.2012, 22:21 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Данные топики очень похожи по содержанию на вашу тему Две задачи с массивами в Паскале Паскаль. Работа с двумерными массивами Помогите, пожалуйста. Работа с одномерными массивами, Паскаль Помогите с массивами в Pascal |
15.06.2012, 03:10 | #2 (permalink) | |
Banned
Регистрация: 23.11.2010
Сообщений: 6,749
Сказал(а) спасибо: 18
Поблагодарили 27 раз(а) в 6 сообщениях
Репутация: 17514
|
Цитата:
|
|
15.06.2012, 09:50 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
А к сказанному Duc'ом добавлю следующее:
1. Мутная формулировка задачи. Что значит "среднее арифметическое положительных элементов для линейных одномерных массивов"? Для каждого массива в отдельности? Или по всем трем в куче? Или (как пытаетесь Вы) если элементы трех массивов, стоящие на i-той позиции каждый, положительны, то найти среднее арифметическое между ними? В общем, с места мы не сдвинемся, пока не появится ясная, четкая и однозначная формулировка задания. При этом отмазки типа "А мне так дали!" НЕ ПРИНИМАЮТСЯ. Разбирайтесь, выясняйте - Ваши проблемы. 2. Вы присоединяете модуль CRT. Вопрос - зачем, если ни одной команды CRT в программе не наблюдается? Просто бездумно скатали шаблон? |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|