сервис вопросов и ответовДан массив 8 действительных, найти сумму менее 8 и количеств не четных
5-9 класс|
|
Эвелина85
23 апр. 2015 г., 16:57:05 (9 лет назад)
Наточка1978
23 апр. 2015 г., 18:07:07 (9 лет назад)
uses crt;
const n=8;
var i,ans2:integer;
ans1:real;
a:array[1..n] of real;
begin
writeln('Введите 8 действительных чисел:');
for i:=1 to n do
begin
read(a[i]);
if a[i]<8 then
ans1:=ans1+a[i];
if (a[i]=trunc(a[i])) and (trunc(a[i]) mod 2<>0) then
ans2:=ans2+1;
end;
writeln('Сумма чисел, меньших 8: ',ans1);
writeln('Количество нечетных чисел: ',ans2);
end.
Tomick2015
23 апр. 2015 г., 19:55:33 (9 лет назад)
я ся жди 1 мин или 2
Sofiss
23 апр. 2015 г., 20:32:58 (9 лет назад)
1. Дан массив целых чисел (n=15), заполненный случайным образом числами из промежутка [—20,50]. Найти сумму элементов массива.
2. Дан массив целых чисел (n=15), заполненный случайным образом числами из промежутка [—20,50] Заменить элемент, кратный 5, нулем. Найти сумму элементов массивы
Grek2001
23 апр. 2015 г., 21:03:39 (9 лет назад)
3. Дан массив целых чисел, состоящий из 20 элементов, заполненный случайным образом. Найти сумму нечетных элементов массива.
4. Дан массив целых чисел (n=15), заполненный случайным образом числами из проме
Ответить
Другие вопросы из категории
Помогите пожалуйста ! срочно надо!!!...в заданной последовательности целых чисел определите сумму элементов кратных 10! пример задачки вот именно под
типо по такой же системе которую щас напишу! program Maximum; i,n,max:integen; begin writeln ( 'введи элементы массива для поиска максимума'); for i:=1 to 10 do begin write ('a [', i ,']=');readln (a [ i ] ) ;end; max:=a[1]; for i = 2 to 10 do if a [ i ] > max then begin max:=a [ i ] ; n:= i ; end; writeln ('найти наибольший элемент ',max ,' под номером ', n); вот наподобие этого примера нужно построить мою задачу! в заданной последовательности целых чисел определите сумму элементов кратных 10. Помогите пожалуйста!!!
Visual Basic
Сделать проэкт, в котором для введеного пользователем натурального показателя степеня n вычислялось значение 2^n
Приведите 2-3 примера пар объектов,
имена отношений которых не изменяются, когда меняются местами имена объектов.
Читайте также
1)дан массив. найти сумму положительных и нечетных и количество отрицательных четных элементов
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
1.Дан массив целых чисел, найти среднее арифметическое всех элементов массива.
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
Вы находитесь на странице вопроса "Дан массив 8 действительных, найти сумму менее 8 и количеств не четных", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.