сервис вопросов и ответовПомогите составить программу
10-11 класс|
|
Прикрепленные изображения
Dariy0505
05 сент. 2014 г., 6:25:35 (9 лет назад)
Vhch
05 сент. 2014 г., 8:41:19 (9 лет назад)
Program Task;
Var a: Array [1..5] of Real;
sum: Real;
count, i: Integer;
Begin
WriteLn('Введите 5 вещественных чисел через пробел');
For i := 1 To 5 Do
Read(a[i]);
WriteLn('Элементы от -1 до 1:');
For i := 1 To 5 Do
If (a[i] >= -1) And (a[i] <= 1) Then
Begin
Write(a[i], ' ');
sum := sum + a[i];
count := count + 1;
End;
WriteLn;
WriteLn('Сумма: ', sum);
WriteLn('Количество: ', count);
ReadLn;
End.
Ответить
Другие вопросы из категории
помогите пожалуста очень надо.
найти минимальний и максимальний элемент массива А[1...10] и поменять их местами
Решить любую из двух задач. Если две - то спасибо :)
1) В одномерном массиве встречаются нули. Согнать их всех в одну сторону.(задача на пузырьковый метод)
2) После ввода одномерного массива:
-сначало идут положительные по возрастанию
-потом все нули
-потом все отрицательные чила по возрастанию
Пример:-1 5 -7 0 3 0 -2 6 8
вывод: 3 5 6 8 0 0 -7 -2 -1
Помогите, очень прошу вас.
Читайте также
помогите составить программу!пожалуйста!!!!ооочень надо
ракета запускается с земли со скоростью V(км час) в направлении движения земли по орбите вокруг солнца. составить программу,определяющую результат запуска ракета в зависимости от скорости V.
Известно,что при V16,4 ракета покинет солнечную систему.
Помогите пожалуйста!! ) составить программу в "Pascal abc"!!)
Составить программу вычисления значений функции F(x) на отрезке [а; b] с шагом h.
Результат представить в виде таблицы, первый столбец которой — значения
аргумента, второй — соответствующие значения функции: "F(x) = 1/2 ctg x/4+4"
1. Составить программу для нахождения наибольшего числа из трех чисел.
2. Составить программу для упорядоченное двух элементов по убыванию.
1)составить программу, организующую массив записей о книгах, ввести информацию по следующим полям:автор, название, год издания. Провести сортировку и
вывести список книг, изданных после 2003 года.
2)составить программу , организующую массив записей о пяти студентах и их оценках по трем предметам. провести сортировку и вывести список отличников.
Нужно составить программу с предусловием и постусловием!
Составить программу к.т. запрашивает буквы, пока не введут точку и находит количество букв "0".
Вы находитесь на странице вопроса "Помогите составить программу", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.