сервис вопросов и ответовПаскаль
10-11 класс|
|
Задан целочисленный массив A[n]. Определить, сколько раз меняется знак в данной последовательности чисел, запомнить номера позиций, в которых происходит смена знака.
Yuferevartem41
20 мая 2013 г., 0:09:49 (10 лет назад)
Fikun16
20 мая 2013 г., 2:28:28 (10 лет назад)
program chik;
var a,b:array[1..10000]of integer;
n,i,j,k:integer;
begin
read(N);
for i:=1 to n do
read(a[i]);
j:=1;
b[j]:=1;
if(a[1]>=0)then k:=1 else k:=0;
for i:=2 to n do
begin
if((a[i]>=0)and(k=0))or((a[i]<0)and(k=1))then begin
k:=(k+1)mod 2;
j:=j+1;
b[j]:=i;
end;
end;
for i:=1 to j do
write(b[i],' ');
end.
Ответить
Другие вопросы из категории
Служебное слово VAR в программе на языке Pascal фиксирует начало раздела программы, содержащего:
А) операторы;
Б) список меток;
В) описание сложных типов данных;
Г) перечень констант;
Д) описание переменных.
ПОМОГИТЕ ПОЖАЛУЙСТА!!!!
Мне даны данные
периоды времени(даты) например с 31.01.2013 по 13.02.2013
и дан текст,в котором дана информация что именно делалось в эти периоды.
нужно занести это в график
там 8 периодов
обьясните пожалуйста как это сделать
Читайте также
1.тема циклы со сщетчиком.Написать программу в паскале для ввода с клавиатуры 15 чисел и вывода номеров отрицательных элементов.
2.написать программу в паскале
f(x)=2(sin*sin)x+1
Рассказать и показать на примере Паскаль: 1) Что такое absolute и для чего нужна? 2) Что такое asm и для чего нужна? 3) Что такое
constructor и destructor и для чего нужна?
4) Что такое implementation и для чего нужна?
5) Назовите модули Паскаль ( в строке Uses, например crt) и какие возможности этот модуль дает?
6) Что за тип переменной: указательный (Pointer)
7) И на последок: что означает символ @ , #, $ , ^
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.
Прошу переделать код программы с языка Паскаль на С++.
Вот код Паскаль:
var
f:array[1..500] of record
fam:string;
bal:boolean;
end;
buf:boolean;
str:string;
Вы находитесь на странице вопроса "Паскаль", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.