сервис вопросов и ответовС клавиатуры запросить 25 целых чисел.Найти число положительных и сумму отрицательных.Результаты вывести на экран.Паскаль.Спасибо
5-9 класс|
|
заранее!
Саша85
03 авг. 2014 г., 11:22:19 (9 лет назад)
Yulia68
03 авг. 2014 г., 13:36:22 (9 лет назад)
program vvod_chis;
var
a:array[1..25] of integer;
i,kol,sum_ot:integer;
Begin
for i:=1 to 25 do begin
writeln('Введите ',i,'-ое число');
readln(a[i]);
end;
kol:=0; sum_ot:=0;
for i:=1 to 25 do begin
if a[i]>0 then kol:=kol+1;
if a[i]<0 then sum_ot:=sum_ot+a[i];
end;
writeln('Число положительных лементов= ',kol);
writeln('Семма отрицательных лементов= ',sum_ot);
End.
Ответить
Другие вопросы из категории
Установите соответствия между компьютеррными и аналогичными им некомьпьютерными объектами. 1) Имя файла 1)Библиотека 2) Файл 2)
Шкаф
3) Папка 3)Полка
4)Диск 4) Книга
5)Вложенная папка 5)Названние книги
Помогите решить задачу в паскале!!!
Дана строка S и символ C. определить есть ли символ C в строке S
Читайте также
1.Дан массив целых чисел, найти среднее арифметическое всех элементов массива.
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
Дан массив из N элементов(12 элементов), заданный случайным образом от -10 до 10. Вывести на экран этот массив. С клавиатуры вводятся два числа меньше N.
Вывести на экран часть массива входящих в диапазон, двух введенных чисел. Эти два числа будут индексами к тем числам, которые надо вывести.
2. Определить, делится ли введенное число "а" на 3. Если делится то вывести на экран "Число делится на 3".Тип переменной определить самостоятельно. При
составлении условия учесть, что если число делится на 3, то то остаток от деления на 3 должен быть равен 0.
3. Дана программа на языке Паскаль.
var a,n,s: integer;
begin
s:=0;
n:=0;
repeat;
write('Введите число ');
readln(a);
s:=s+a;
n:=n+1;
until s>100;
writeln('Количество введенных чисел = ' ,n);
end.
Переписать программу используя цикл While.
4. Вывести на экран массив целых чисел, Состоящий из 15 элементов, значение которого из которых сгенерировано случайным образом из диапазона [20,60].
Вводятся 4 числа. Вывести на экран максимальное
Вводятся три числа. Вывести на экран число с минимальной суммой цифр.
Помогите пожалуйста в Паскале
Задание1. Значение переменной Х ввести с клавиатуры. Переменной У присвоить значение 5. Вывести на экран информацию «знач.Х»+5=
«итог. сумма».
Задание 2.
Переменной Х присвоить значение 7. Переменной Р присвоить значение, равное квадрату Х. Вывести значения переменных Х и Р (через запятую). Значение Х увеличить на Х. Переменной Р присвоить значение, равное корню квадратному из Х. Вывести значения переменных Х и Р (через запятую).DIKTANT 2
Задание 1.
Значение переменной Х присвоить в программе. При неотрицательном значении Х переменной У присвоить значение, равное корню квадратному из Х. В противном случае, переменной У присвоить значение, равное квадрату Х. Вывести на экран значение Х и значение У.Задание 2.
Двум произвольным переменным присвоить произвольным образом соответственно 2 числа. Двум другим переменным присвоить значения, равные тангенсам двух предыдущих переменных. Вывести на экран значения всех переменных, а так же сумму значений двух последних переменных. помогите сделать пож
Вы находитесь на странице вопроса "С клавиатуры запросить 25 целых чисел.Найти число положительных и сумму отрицательных.Результаты вывести на экран.Паскаль.Спасибо", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.