Статистика
Всего в нашей базе более 4 324 325 вопросов и 6 439 657 ответов!

Пожалуйста, помогите с задачей в паскале! Написать решение задачи для программы Паскаль. Спасибо)

10-11 класс

Имеется
массив А из N произвольных чисел (А(N)), среди которых есть положительные, отрицательные и
равные нулю. Используя оператор цикла, составить программу, выполняющую задачу:

Trailblazer 07 дек. 2013 г., 10:52:55 (4 года назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Alyona1999
07 дек. 2013 г., 12:12:26 (4 года назад)

Program random_;
uses crt;
type
arr = array[0..1000] of shortint;
var
ar,b,i:word;
a:arr;
begin
randomize;
for ar:=0 to 999 do
a[ar]:= random(18)-9;

b:=10;
i:=0;
repeat b:=a[i]; i:=i+1; until(b = a[i]) or (i = 999);

if i = 999 then writeln('Повторяющихся чисел нет!') else writeln(i,' ',i+1) ;

end.

+ 0 -
ЛенушкаПодруфка
07 дек. 2013 г., 14:48:05 (4 года назад)

а нужно только цикл написать а массив у вас уже есть? или рандомно заполнить массив?

+ 0 -
ОлькаЛубинская
07 дек. 2013 г., 15:57:06 (4 года назад)

написать программу полностью, массива у меня еще нет

+ 0 -
Liana353434343
07 дек. 2013 г., 16:28:30 (4 года назад)

а массив желаете сами заполнить или автоматом?

+ 0 -
DOBRO123
07 дек. 2013 г., 19:22:02 (4 года назад)

автоматом

+ 0 -
DmitrochenkovaL
07 дек. 2013 г., 20:10:21 (4 года назад)

чет переписывать лень

Ответить

Другие вопросы из категории

Составить программу Дан массив натуральных чисел , размерность -12 !) Заполнение массива производить с клавиатуры 2) Вывести на печать

только элементы кратные 2

3)Найти сумму первых пяти элементов

Составить программу Дан массив целых чисел , размерность -12

1) Заполнение массива производить случайными числами из диапозона [-10;35]

2)Вывести на печать только положительные элементы

3)Найти количество отрицательных элементов

Составить программу

Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .

СРОЧНО ПЛИЗ !!!!(¬A¬B¬C)v(¬A¬BC)v(¬AB¬C)v(A¬B¬C)

Помогите упростить ... только поэтапно, законы не надо объяснять просто поэтапное упрощение ... "Ответы появятся здесь в ближайшее время" ндааа...

Читайте также

помогите с задачей. я написала решение, но где-то ошибка видимо. подскажите где именно и ошиблась. Смоделировать работу автомата по продаже

билетов. Пусть населенные пункты обозначены номерами 1, 2, 3, 4, 5, 6, 7, 8. Стоимость одного билета к конкретному пункту определена так:

22,k=1

35,k=2,3

50,k=4

72,k=5,6

97 во всех остальных случаях.

Сколько будут стоить m билетов к некоторому населенному пункту? Для решения задачи используйте алгоритмическую конструкцию "выбор" (case).

program z5;

var

r, m, n, s:integer;

begin

writeln('r=', r);

readln(r);

writeln('m=', m);

readln(m);

case r of

1:n:=22;

2,3:n:=35;

4:n:=50;

5,6:n:=72;

else n:=97;

end;

s:=m*n;

writeln('s=', s);

end.

Задание: составить программу решения задачи.

Указания к выполнению: самостоятельно выполнить все этапы решения
задачи. Ввод и вывод матрицы оформить в виде процедур. При
необходимости выделить в задаче вспомогательные алгоритмы и оформить
их в виде подпрограмм.паскаль

Дана матрица, определить количество «особых» элементов. Элемент
считается «особым», если он больше суммы остальных элементов строки.
.

Сделайте пожалуйста данную задачу для программы Паскаль ABC:

Дано гипотенузу и катет прямоугольного треугольника. Найтдите второй катет и площадь вписанного круга.

Составить программу для решения задачи: 1)Даны действительные, положительные числа x,y,z. Выяснить, существует ли треугольник с длинами сторон x,y,z. Если

треугольник, то является ли он равносторонним? 2)Дан одномерный массив. Найти количество смен знака между соседними элементами массива. Программа -Паскаль.



Вы находитесь на странице вопроса "Пожалуйста, помогите с задачей в паскале! Написать решение задачи для программы Паскаль. Спасибо)", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.