сервис вопросов и ответовнужно написать программу на языке паскаль по условию:
10-11 класс|
|
Найти сумму элементов массива расположенных до последнего положительного элемента
Буду бескрайне благодарна, если поможете мне))
SahaOlga
16 марта 2015 г., 10:49:33 (9 лет назад)
Sheihinaalina
16 марта 2015 г., 13:43:57 (9 лет назад)
uses crt;
var a,b:array[1..100] of integer; i,j,k,n:integer;
procedure rmassr;
begin
for i:=1 to n do begin
a[i]:=random(10);
end;
end;
procedure rmassy;
begin
for i:=1 to n do begin
readln(a[i]);
end;
end;
procedure rmass();
begin
for i:=1 to n do begin
write(a[i],' ');
end;
end;
procedure newmass;
begin
for i:=1 to n do begin
if a[i] > 0 then b[i]:=a[i];
end;
for i:=1 to n do begin
j:=j+b[i];
end;
writeln('summa = ',j);
end;
begin
clrscr;
randomize;
write('длина массива '); readln(n);
write('1-random; 2-в ручную'); readln(k);
if k = 1 then
rmassr()
else rmassy();
rmass();
writeln();
newmass();
readln
end.
Ответить
Другие вопросы из категории
Всем привет. Помогите, пожалуйста, разобраться с этой задачей. Как ее решить в Pascal.
"Вычислить сумму элементов строки, проходящей через первый нулевой элемент побочной диагонали матрицы Q(30,30)."
В исходной строке а$
определить и вывести слова, в которых первая буква встречается всего один раз.(Бэйсик)
составить программу в паскале.
Формат ввода:
вводится одно натуральное число N, не превосходящее 50.
Формат ввода:
Выведите 1,если данное число просто и 0, в противном случае.
Читайте также
1) Напишите пожалуйста программу (на языке BASIC) вычисления по длинам двух сторон треугольника и углу между ними длины третьей стороны и двух других
углов.
2)
Напишите пожалуйста программу (на языке BASIC) для определения подобия:
а) двух прямоугольников по двум смежным сторонам;
б) двух треугольников по трем сторонам.
Помогите написать программу по Информатике! Найти произведение двузначных нечетных чисел, кратных
13.
Нужно написать программу на цикле с предусловием, на Паскале.
написать программу на Assembler
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
Нужно написать программу на языке Турбо Паскаль, которая бы вычисляла значение выражения по формуле
e^(x+y) - степень!
Заранее спасибо
3. Не используя функцию возведения в квадрат, напишите на языке Паскаль наиболее короткие алгоритмы вычисления а) y=x¹° б)y=x¹⁵ или а) y=x^10
б)y=x^15
Постараться использовать минимальное количество дополнительных переменных.
4. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a ← b ← c. Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.
Вы находитесь на странице вопроса "нужно написать программу на языке паскаль по условию:", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.