М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Skvaler
Skvaler
07.12.2020 00:31 •  Информатика

Буду ! нужно составить на массив(паскаль): сколько элементов между крайними отрицательными?

👇
Ответ:
kopilovaolga
kopilovaolga
07.12.2020
Const n=10; 
var a:array[1..n] of integer;
i,k1,k2:integer; 
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 a[i]:=random(21)-10;
 write(a[i],'  ');
 end;
writeln;
k1:=n;
while (k1>0)and(a[k1]>=0) do k1:=k1-1;
k2:=k1-1;
while (k2>0)and(a[k2]>=0) do k2:=k2-1;
if (k1<>0)and(k2<>0) 
 then writeln(k1-k2-1) else writeln('В массиве нет 2 отрицательных элементов');
end.

Пример:
Исходный массив:
9 0 2 7 -6 9 2 3 -4 10
3
4,4(19 оценок)
Открыть все ответы
Ответ:
Nikanikansjs
Nikanikansjs
07.12.2020

Решение перебором АДЛТДТАТ

Объяснение:

Для начала можно понять, что первая точка и продолжение подходит только для буквы А и в итоге остаётся: -...-..--..-.--, дальше у нас 2 варианта:

1) АД.-..--..-.-- >> 1 - АДА..--..-.-- 2 - АДЛ--..-.--

2)АТ...-..--..-.-- >> АТЖ..--..-.--

Продолжаем перебирать:

1)  АДА..--..-.--  больше нельзя продолжить т.к букв из 2 точек вначале нету.

2) АДЛ--..-.--  >>   АДЛТ-..-.--  >> 1)АДЛТД-.-- 2)АДЛТТ..-.--

3) АТЖ..--..-.--  >> нельзя продолжить из за двух точек.

Продолжаем:

1)АДЛТД-.-- >> АДЛТДТАТ - это ответ

2)АДЛТТ..-.-- нельзя продолжить из за двух точек.

4,8(59 оценок)
Ответ:
kotflin
kotflin
07.12.2020
var   s : string[50];
  i, j, k : word;  
 f : boolean;  
function isSpace(ch : char) : boolean;
begin   isSpace := false;  
if ch = ' ' then isSpace := true;
end;  
begin   f := false;  
   repeat     j := 0;
    writeln('введите строку, состоящую из 2 слов');
    readln(s);    
for i := 1 to length(s) do    
   if isSpace(s[i]) then  
    begin    
     inc(j);      
   k := i;       end;
     if j =1 then f := true;
    until f;    
write(copy(s, k + 1, length(s)), ' ', copy(s, 1, k - 1)); 
end.
недавно такую писала :)
4,6(81 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ