|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
09.12.2012, 14:48 | #1 (permalink) |
Member
Регистрация: 04.10.2012
Сообщений: 49
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Одномерные массивы, нахождение среднего арифметического
Дан массив С(N). Найти среднее арифметическое положительных элементов с чётными индексами. Задача простая,но пишу программу и постоянно ошибки выдает.Уже не знаю что делать! Вот uses crt; var C:array[1..100] of real; i,k,n:real; S:real; begin clrscr; write('Vvedite kol-vo elementov:');readln(n); write('vvedite znachenie:'); readln(c[i]); k:=0; s:=0; for i:=1 to n do begin if (i) mod 2=0 and (c[i]>0) then begin s:=s+c[i];inc(k); end; writeln('Srednee arifmetichescoe= ',s/k); end; readkey; end. |
09.12.2012, 14:48 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Нашлось еще несколько тем, которые создавались ранее Одномерные массивы на Pascal Одномерные массивы Задачи на двумерные и одномерные массивы Одномерные массивы Помогите пожалуйста с задачей на одномерные массивы и матрицу. Паскаль Помогите пожалуйста с задачей на одномерные массивы и матрицу |
09.12.2012, 16:30 | #3 (permalink) |
Member
Регистрация: 04.10.2012
Сообщений: 49
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Вот другой вариант
uses crt;
var c:array[1..100]of real; k:byte; n,i:real; s:real; Begin clrscr; write('Vvedite kol-vo elementov: ');readln(n); for i:=1 to n do BEGIN writeln('Vvedite znachenie: ');readln(c[i]); end; s:=0; k:=0; for i:=1 to n do begin if i mod 2=0 and (c[i]>0) then s:=s+c[i]; k:=k+1; write(c[i]); end; writeln; writeln('Srednee arifmetichescoe: ',s/k); readln; End. Эта сначала запустилась,но среднее арифметическое не правильно вычисляет да и массив выводится не так как надо потом я что-то поменяла и ошибка вышла что-то с типами связано ...??? |
09.12.2012, 17:09 | #4 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
uses crt; var c:array[1..100] of real; k,i,n:byte; s:real; Begin clrscr; write('Vvedite kol-vo elementov: '); readln(n); for i:=1 to n do begin write('Vvedite znachenie: '); readln(c[i]); end; s:=0; k:=0; for i:=1 to n do if (i mod 2=0) and (c[i]>0) then begin s:=s+c[i]; k:=k+1; end; writeln; writeln('Srednee arifmetichescoe: ',s/k:0:5); readkey; End. |
|
09.12.2012, 18:03 | #5 (permalink) |
Member
Регистрация: 04.10.2012
Сообщений: 49
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
СПАСИБО
а можно еще вывести заданный массив после ввода элементов... извините я просто не хочу опять ошибок наделать
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
09.12.2012, 18:18 | #6 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
uses crt; var c:array[1..100]of real; k,i,n:byte; s:real; Begin clrscr; write('Vvedite kol-vo elementov: '); readln(n); for i:=1 to n do begin write('Vvedite znachenie: '); readln(c[i]); end; for i:=1 to n do write(c[i]:8:3); Writeln; s:=0; k:=0; for i:=1 to n do if (i mod 2=0) and (c[i]>0) then begin s:=s+c[i]; k:=k+1; end; writeln; writeln('Srednee arifmetichescoe: ',s/k:0:5); readkey; End. |
|
16.05.2013, 10:01 | #8 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Сразу отмечу недостаток такого метода: Вы сами должны контролировать совпадение количества набранных чисел с введенной длиной массива. Код:
uses crt; var c:array[1..100]of real; k,i,n:byte; s:real; Begin clrscr; write('Vvedite kol-vo elementov: '); readln(n); writeln('Vvedite massiv:'); for i:=1 to n-1 do read(c[i]); readln(c[n]); Writeln; s:=0; k:=0; for i:=1 to n do if (i mod 2=0) and (c[i]>0) then begin s:=s+c[i]; k:=k+1; end; writeln; writeln('Srednee arifmetichescoe: ',s/k:0:5); readkey; End. |
|
16.05.2013, 11:21 | #9 (permalink) |
Новичок
Регистрация: 15.05.2013
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо огромное! Прям то что нужно!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|