Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 04.04.2017 06:18
- Информатика
- remove_red_eye 10603
- thumb_up 47
Ответы и объяснения 1
Program Z2;
uses crt; // Подключение модуля
Const //Описание констант
n =16;
var //Описание переменных
s1,s2:real;//Не совсем понятно зачем real, ведь массив integer
var
q: string; //Строковая переменная !!!Вообще нигде не используется
Var m: array [1..n] of integer; //Массив целых чисел
Var i,j:integer; //Переменные цикла !!Хватило бы и одной
begin
//Формирование массива
for l:=1 to n do
read(m[i]);
//Обнуление переменных сумм
s1:=0;
s2:=0;
for J:=1 to 8 do
begin
//Подсчет суммы элементов с четным порядковым номером
s1:=s1+m|2*j];
//Подсчет суммы элементов с нечетным порядковым номером
s2:=s2+m|2*j-1];
end;
If s1>s2 then //Условие
writeln('cyммa элементов с четным индексом больше. чем сумма с нечетным);
end.
- 05.04.2017 01:27
- thumb_up 21
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.