profile
Размещено 5 лет назад по предмету Информатика от yurtinais15

в массиве с={1,2,-3,0,-1,-7,-9,9,10,-3} найти количество соседств двух положительных и количество соседств двух отрицательных элементов массива,проверьте пожалуйста программу , что неправильно ?
var
C:ARRAY[1..10]of integer = (1,2,-3,0,-1,-7,-9,9,10,-3);
i:=i+1;
i,n,t,k:integer;
begin
function controll (C:ARRAY):boolean;
var i:integer;
if ((c[i]>0)
and (c[i+1]>0))
or ((c[i]<0)and
(c[i+1]<0))
then
k:=k+1;
end.
Close (F);
repeat
write('C: ');
readln(C);
until (C>0)and(C<=10);
writeln('Введите ',C,' элементов');
for i:=1 to 10 do
i:=i+1;
read(C[i]);
for i:=1 to 10 do
i:=i+1;
write('C: ');
readln(C);
repeat
write('C: ');
readln(C);
until (C<-3)and(C<=2);
writeln('Введите ',C,' элементов');
C:boolear;
writeln('C');
end.
//основная программа
Close File (F).

  1. Ответ на вопрос
    Ответ на вопрос дан petyaGavrikov
    var
    c:ARRAY[1..10]of integer = (1,2,-3,0,-1,-7,-9,9,10,-3);
    i,k1,k2:integer;
    begin
    k1:=0; k2:=0;
    for i:=1 to 9 do
     begin
     if (c[i]>0)and(c[i+1]>0) then k1:=k1+1;
     if (c[i]<0)and(c[i+1]<0) then k2:=k2+1;
     end;
    writeln('k1 = ',k1,' k2 = ',k2);
    end.

    Результат:
    k1 = 2 k2 = 2
    1. Ответ на вопрос
      Ответ на вопрос дан yurtinais15
      спасибо
    2. Ответ на вопрос
      Ответ на вопрос дан yurtinais15
      опять написала непонятно что), а всё было проще , ещё раз спасибо большое)
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.