сервис вопросов и ответовСОСТАВИТЬ ПРОГРАММУ НА ПАСКАЛЕ ДЛЯ ВВОДА С КЛАВИАТУРЫ 15 ЧИСЕЛ И ВЫВОДА НОМЕРОВ ОТРИЦАТЕЛЬНЫХ ЭЛЕМЕНТОВ . ПОСЛЕ ЗАМЕНИТЬ ЭТУ ПРОГРАММУ НА
10-11 класс|
|
ОПЕРАТОР WHILE
Hadicamusulman
17 мая 2014 г., 12:07:28 (9 лет назад)
Margomedvedeva
17 мая 2014 г., 12:45:16 (9 лет назад)
var a:array[1..15]of integer;
x,i:integer;
begin
i:=1;
while i<16 do begin
readln(x);
if x<0 then a[i]:=x;
inc(i);
end;
for i:=1 to 15 do if a[i]<0 then writeln(i);
end.
Ответить
Другие вопросы из категории
Помогите пожалуйста
Решить задачу структурным способом записи через блоки
program fwe;
var i,k,m,n:integer;
var a,b,h,c,g,s,s1,x,yk,yn,y1:real;
begin
writeln('Vedite predeli integrirov');
readln(a,b);
writeln('Vedite kol-vo oterzkov');
readln(k);
x:=a;c:=1;s:=0;
h:=(b-a)/k;
m:=k-1;
for i:=1 to m do
begin
x:=x+h;
s:=s+(3+c)*sqrt(x+3/x);
c:=-c;
end;
s1:=sqrt(a+3/a)+sqrt(b+3/b);
s:=h*(s1+s)/3;
writeln('Ickomoe znach ravno', s:9:10);
readln;
begin
writeln('Vedite peredeli integri');
readln(a,b);
writeln('Vedite kol-vo otrezkov');
readln(n);
h:=(b-a)/n;
y1:=0;
x:=a;
for i:=1 to n-1 do
begin
x:=x+h;
y1:=y1+sqrt(x+3/x);
end;
yn:=sqrt(a+3/a);
yk:=sqrt(b+3/b);
s:=((yn+yk)/2+y1)*h;
writeln('Ickomoe zhach ravno',s:9:10);
readln;
end;
end.
Составить блок схему. Составить программу вычисления значений функции F(х) на отрезке [а;в] с шагом h. Результат представить в виде таблицы, первый
столбец которой - значения аргумента, второй - соответствующие значения функции.
F(x) = ·
х.
Читайте также
1.тема циклы со сщетчиком.Написать программу в паскале для ввода с клавиатуры 15 чисел и вывода номеров отрицательных элементов.
2.написать программу в паскале
f(x)=2(sin*sin)x+1
Пожалуста!!!!!!!!!!!!!!!!!!!!!!ОЧ срочно!!!!!! Написать программу на паскале, которая вводит
массив из N целых чисел и выводит на экран номера отрицательных элементов и сами эти элементы. Протестировать программу для следующих массивов:
а) 3 5 -2 0 -6 -8 1
б) -1 -2 -3 0 -1 2 3
массивы должны вводися вручную а не рандомно.
Составить программу на языке Паскаль: 1)Для массива K из 12 вещественных чисел определить сколько элементов массива меньше 0. 2)В массиве М из 10 целых
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
Составить программу на языке паскаль
задание: дана матрица А(N, N). Составить программу подсчета количества положительных элементов, расположенных выше главной диагонали
ПОМОГИТЕ ПОЖАЛУЙСТА!!! МОЖНО ТОЛЬКО ПРОГРАММУ. НЕ МОГУ РАЗОБРАТЬСЯ КАК СДЕЛАТЬ...
Составить программу на Паскале (желательно и выполнить).
С клавиатуры ввести 10 элементов массива (целые числа). Вывести исходный массив. Заменить элементы на противоположные и вывести получившийся массив (в строку).
Вы находитесь на странице вопроса "СОСТАВИТЬ ПРОГРАММУ НА ПАСКАЛЕ ДЛЯ ВВОДА С КЛАВИАТУРЫ 15 ЧИСЕЛ И ВЫВОДА НОМЕРОВ ОТРИЦАТЕЛЬНЫХ ЭЛЕМЕНТОВ . ПОСЛЕ ЗАМЕНИТЬ ЭТУ ПРОГРАММУ НА", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.