Форум программистов, компьютерный форум, киберфорум
Free Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Free Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Free Pascal найти НОК https://www.cyberforum.ru/ free-pascal/ thread678857.html
Здравствуйте! Начал учиться и появилась проблема. Требуется найти найти наименьшее общее кратное Program 1; var k,z,a,n:integer; Begin writeln ('ввести значения'); readln(k,n); a:=1; repeat k:=k/a; 		Контроль ошибок при открытии файлов Free Pascal
Приветствую! Как реализовать проверку, открылся ли успешной файл? Пробую сделать вот так: // Контроль ошибок открытия файлов uses crt; begin assign(input, 'INPUT.TXT'); // Связываем файл INPUT.TXT с файловой пер. input
Free Pascal Получить массив, элементы которого равны сумме элементов каждого столбца заданной матрицы 1. Получить одномерный массив, элементы которого равны сумме элементов каждого столбца заданной матрицы https://www.cyberforum.ru/ free-pascal/ thread678632.html Free Pascal Решение уравнения Формат входных данных: В первой строке входного файла задано целое число N (1 ≤ N ≤ 104) — количество областных центров. В каждой из последующих N строк записано по два числа — номер горизонтальной и вертикальной дорог соответственно, на пересечении которых находится областной центр. Каждый номер по абсолютной величине не превосходит 104. Формат выходных данных: В выходной файл выведите... https://www.cyberforum.ru/ free-pascal/ thread678292.html
Free Pascal Решить уравнение
Помогите написать программу, решающую данное уравнение |x - A| + B = 0. Во входном файле заданы два целых числа A и B (-2*10^9 ≤ A, B ≤ 2*10^9). В первой строке выходного файла выведите количество решений данного уравнения, а во второй через пробел сами решения. Добавлено через 56 минут Program yravnenie(input,output); Var y,x,a,b:longint; Begin 		Free Pascal Переписать в файл f – четные строки, в файл h — нечетные из исходного Здравствуйте,я первый раз на этом форуме. Хороший форум,всё понятно,быстро разобралась. Помогите пожалуйста решить задачу. Создать текстовый файл g. Переписать в файл f – четные строки, в файл h — нечетные https://www.cyberforum.ru/ free-pascal/ thread678096.html
Free Pascal Не верно работает цикл Дана задача: В текстовом файле содержится последовательность действительных чисел. В заданной последовательности положительные члены увеличить на 0,5, а отрицательные заменить на 1. Измененную последовательность переписать в результирующий файл. Имена исходного и результирующего файлов вводятся с клавиатуры. Код программы: var f,f1:text; a:real; s:string; begin writeln('vvedite imya... https://www.cyberforum.ru/ free-pascal/ thread677924.html Free Pascal Факториал и возведение в степень, исправить ошибку в коде
900! - 200 в степени 100. Мой пример: program kill; var factorial:longint; n,z,x,suma:integer; i:byte; begin writeln ('n!='); readln (n);
Free Pascal Реализовать все арифметические операции, используя только операцию сложения Помогите пожалуйста. Требуется реализовать на паскале все арифметические операции, используя только операцию сложения. Пример 21*2=21+2, 21-2=21+(-2) и т. д. https://www.cyberforum.ru/ free-pascal/ thread677728.html Free Pascal Определить является ли текст правильной записью римскими цифрами числа от 1 до 38 Здравствуйте, я в первый раз на этом форуме (друг посоветовал), вроде вполне удобный форум, разобрался быстро:) Дан текст из заглавных латинских букв, за которыми следует пробел. Определить является ли этот текст правильной записью римскими цифрами целого числа от 1 до 38, и, если является, напечатать это число арабскими цифрами. https://www.cyberforum.ru/ free-pascal/ thread677630.html
айпи адрес Free Pascal
Для того чтобы выходить в Интернет, каждому компьютеру присваивается так называемый IP-адрес. Он состоит из четырех целых чисел в диапазоне от 0 до 255, разделенных точками. В следующих трех строках показаны три правильных IP-адреса: 127.0.0.0 192.168.0.01 255.00.255.255 Напишите программу, которая определяет, является ли заданная строка правильным IP-адресом. Формат входного файла На... 		Free Pascal Восстановить исходную строку из упакованной https://www.cyberforum.ru/ free-pascal/ thread677499.html
Адрес электронной почты вырезан] Будем рассматривать только строчки, состоящие из заглавных латинских букв. Например, рассмотрим строку AAAABCCCCCDDDD. Длина этой строки равна 14. Поскольку строка состоит только из латинских букв, повторяющиеся символы могут быть удалены и заменены числами, определяющими количество повторений. Таким образом, данная строка может быть представлена как 4AB5C4D....
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
24.10.2012, 09:47 0

Найти среднее арифметическое всех нечетных элементов массива, стоящих на четных местах - Free Pascal - Ответ 3602220

24.10.2012, 09:47. Показов 10582. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

const
  nmax=100;
var
  a: array[1..nmax] of integer;
  n,i,s,k: integer;
begin
  randomize;
  s:=0; k:=0;
  write('Сколько элементов в массиве? ');
  readln(n);
  writeln('Массив:');
  for i:=1 to n do
  begin
    a[i]:=random(99)+1;
    write(a[i],' ');
    if (i mod 2=0)and(a[i] mod 2<>0) then
    begin
      s:=s+a[i];
      inc(k);
    end;
  end;
  writeln;
  if k=0 then writeln('В массиве нет элементов, удовлетворяющих условию.')
    else writeln('Искомое среднее = ',s/k:0:2);
  readln;
end.


Вернуться к обсуждению:
Найти среднее арифметическое всех нечетных элементов массива, стоящих на четных местах Free Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 24.10.2012, 09:47
Готовые ответы и решения:

Найти среднее арифметическое элементов, стоящих на нечётных местах
Дан массив A(4), В(6). Найти среднее арифметическое элементов, стоящих на нечётных местах ...

Найти сумму всех четных элементов массива, стоящих на четных местах
5.Дан массив целых чисел.Найти сумму всех четных элементов массива, стоящих на четных местах, то...

Найти и вывести все номера четных элементов массива, стоящих на нечетных местах
Найти и вывести все номера четных элементов массива, стоящих на нечетных местах.

Вектор. Среднее арифметическое значение элементов, стоящих на нечетных местах
дан вектор, имеющий n (1≤n≥100) целых элементов. напиши программу, которая находит среднее...

1
24.10.2012, 09:47
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 24.10.2012, 09:47
Помогаю со студенческими работами здесь

Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах
Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах, и определить...

Написать программу, находящую сумму элементов, стоящих на четных местах и максимум среди элементов, стоящих на нечетных местах.
Всем привет! Помогите, пожалуйста, решить две задачи по программированию. Задача 1: Задан массив...

Найти среднее арифметическое всех четных элементов массива стоящих на нечетных местах
найти среднее арифметическое всех четных элементов массива стоящих на нечетных местах c++

Получить среднее арифметическое всех чётных элементов массива, стоящих на нечётных местах
Помогите , пожалуйста, срочно надо написать программу( программа управляется с помощью меню В...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru