Задан массив надо найти сколько раз меняется знак элементов.
10-11 класс
|
на паскале?
если да то элементано
m:=0;
for i:=1 to N-1 do
if ((a[i]>=0) and (a[i+1]<0)) or ((a[i]<0) and (a[i+1]>=0))
then m:=m+1;
writeln('Znak menyaetsa ',m,' raz');
end.
Описание
a[i] массив
N это конастанта, а точнее кол-во элементов массива
i элемента массива
m счетчик, изменения переменных
надеюсь 1 часть сам сможешь написать
Другие вопросы из категории
если на покупку выделено д р. все исходные данные задаются с клавиатуру
чашечных весах персиком и сливой. два андерса уравновешиваются тремя персиками. яблоко и слива уравновешиваются ананасом. помогите лилипутам решить задачу.
закачл ровно половину файла, скорость увеличилась в три раза. Какое время ему понадобится, чтобы скачать весь файл. Ответ записать в часах.
все трехзначные числа, сумма цифр которых равна данному целому числу.
Читайте также
Задан целочисленный массив A[n]. Определить, сколько раз меняется знак в данной последовательности чисел, запомнить номера позиций, в которых происходит смена знака.
массиве. Результаты сохранить в одномерном массиве и элементы массива отсортировать по возрастанию Даны три одномерных массива. Упорядочить их по возрастанию элементов. Составить программу проверки, сколько раз повторяется заданное число в каждом массиве. Результаты сохранить в одномерном массиве и элементы массива отсортировать по возрастанию
стандарта «черно-белое» до стандарта «65 536 цветов»? 1) 8 2) 16 3) 32 4) 64 2. Во сколько раз увеличится информационная емкость файла, содержащего растровое изображение, если повысить глубину его цвета со стандарта «черно-белое» до стандарта «4 294 967 296 цветов»? 1)8 2)16 3)32 4)64 3. Какой объем памяти видеокарты займет изображение 12-разрядного файла типа BMP, экранный размер которого 1024 х 768 пикселей? 1) 3 Кбайт 2) 24 Кбайт 3) 3 Мбайт 4) 24 Мбайт
1. For i :=1 to 7 do S := S + i * i;
2. For x := -3 to 5 do 5 do K := K+ABS(X);
3. For a := 10 downo 2 do P :=P*a;
4. For i := 2 to 6 do
begin
K:=K+1;
S:=K+i;
end;
Сколько раз выполнится тело цикла, и чему будут равны значения встречающихся в программе переменных после выполнения каждого фрагмента программы?
5. i :=2; S:=0;
While S<0 do begib S:= S+i; i:+2; end;
6. x:=1 ; S:=10 ;
While x <=10 do x:=x*2 ;
S:= S+x
7. a:=0; S:=0 ;
While a> 0 do S :=S +a;
a:=a+1;
8 . a:=1;
Repeat
R := 2*a;
a:= a+1 ;
until R < 1;
9. a:=1; b:=1;
While a+b < 8 do begin a :=a+1; b := b+2 end;
S := a+b;
10. S:=0; P:= 10; k:= 1;
Repeat
S:= S+k*k;
k :=k+2;
until S > P;
11. For i :=2 to 6 do begin
K:= K+1; S:= K+i;
end;
12. for i:= 1 to 4 do S :=S+i*i; S: S*2;