сервис вопросов и ответовдан массив действительных чисел,размерность которого N.
10-11 класс|
|
Подсчитать,сколько в нем отрицательных,положительных и нулевых элементов. Программа в паскаль
Danil9800
30 авг. 2014 г., 20:53:23 (9 лет назад)
Ekaterinavelik
30 авг. 2014 г., 22:55:44 (9 лет назад)
Program n1;
Uses Crt;
Var
c: array[1..1000] of integer;
n, i, b, x, z:integer;
Begin
writeln('Razmer massiva = '); Readln(n);
for i:=1 to n do begin
c[i]:=random(40) - 20;
write(c[i]:4);
end;
writeln();
x:=0; z:=0; b:=0;
for i:=1 to n do begin
if (c[i]<0) then x:=x+1;
if (c[i]>0) then z:=z+1;
if (c[i]=0) then b:=b+1;
end;
writeln('Kol-vo chisel < 0: ', x);
writeln('Kol-vo chisel > 0: ', z);
writeln('Kol-vo chisel = 0: ', b);
End.
Ответить
Другие вопросы из категории
Преобразовать строку, содержащую выражение на Си с операциями
(=,==,!=,a+=,a-=), в строку, содержащую эти же операции с синтаксисом языка
Паскаль (:=,=,#,a=a+,a=a-). Вывести результат на экран.
Напишите прог-у на паскале... ПЛИИИИИИИИИИЗ 1)даны действительные числа a1, b1, c1, a2, b2, c2. Составьте программу, которая находит координаты точки
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
Дна последовательность неотрицательных чисел, последнее из которых Равно нулю: причем других равных нулю чисел в последовательности нет. Найти
последнее число, больше десяти, в этой последовательности. Если таких чисел нет, напечатать ноль.
Найти сумму
элементов массива с четными индексами, значение которых превышает К.(паскаль)
Читайте также
Составить программу Дан массив натуральных чисел , размерность -12 !) Заполнение массива производить с клавиатуры 2) Вывести на печать
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .
Дан
массив целых чисел, размерность которого N.
Подсчитать, сколько в нем разных элементов.
№1. Дан массив из 30-ти элементов. Каждый элемент может принимать целочисленные значения от 0 до 100. Напишите программу, которая позволит найти сумму
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.
№1. Дан массив из 30-ти элементов. Каждый элемент может принимать целочисленные значения от -100 до 100. Напишите программу, которая позволит
подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. №2. Дан массив из 40 элементов. Каждый элемент может принимать целочисленные значения от 0 до 200. Напишите программу, которая позволит найти наиболее часто встречающийся элемент массива
Вы находитесь на странице вопроса "дан массив действительных чисел,размерность которого N.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.