сервис вопросов и ответовПожалуйста, помогите с задачей в паскале! Написать решение задачи для программы Паскаль. Спасибо)
10-11 класс|
|
Имеется
массив А из N произвольных чисел (А(N)), среди которых есть положительные, отрицательные и
равные нулю. Используя оператор цикла, составить программу, выполняющую задачу:
Trailblazer
07 дек. 2013 г., 10:52:55 (10 лет назад)
Alyona1999
07 дек. 2013 г., 12:12:26 (10 лет назад)
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.
ЛенушкаПодруфка
07 дек. 2013 г., 14:48:05 (10 лет назад)
а нужно только цикл написать а массив у вас уже есть? или рандомно заполнить массив?
ОлькаЛубинская
07 дек. 2013 г., 15:57:06 (10 лет назад)
написать программу полностью, массива у меня еще нет
Liana353434343
07 дек. 2013 г., 16:28:30 (10 лет назад)
а массив желаете сами заполнить или автоматом?
DmitrochenkovaL
07 дек. 2013 г., 20:10:21 (10 лет назад)
чет переписывать лень
Ответить
Другие вопросы из категории
общее сопротивление двух последовательно соединенных проводников 10 Ом, а параллельно соединенных этих же проводников - 2,1 Ом. Определите величину
этих сопротивлений.
помогите пожалуйста))
Составить программу Дан массив натуральных чисел , размерность -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" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.