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

Нужна с pascal дан одномерный массив действительного типа,размер массива задать,как константу например 6.ввести значения массива с клавиатуры. получить другой массив,состоящий только из отрицательных чисел исходного массива или сообщить что таких чисел нет полученный массив вывести в порядке возрастания элементов

👇
Ответ:
Alina4315
Alina4315
14.10.2020
Program gt;
const n=6;
var i,k,j:integer;
a,b:array[1..1000]of real;
p:real;
begin
k:=0;
for i:=1 to n do
begin
read(a[i]);
if(a[i]<0)then begin
k:=k+1;
b[k]:=a[i];
end;
end;
if(k=0)then writeln('NO') else begin
writeln(k);
for i:=1 to k-1 do
for j:=i+1 to k do
if(b[j]>b[j+1])then begin
p:=b[j];
b[j]:=b[j+1];
b[j+1]:=p;
end;
for i:=1 to k do
write(b[i],' ');
end;
end.
4,6(2 оценок)
Открыть все ответы
Ответ:
Annpi
Annpi
14.10.2020
DIM Nazv1$, Nazv2$
DIM P1%,O1%,D1%,P2%,O2%,D2%

CLS
INPUT "Nazvanie 1: ", Nazv1$
INPUT "Perviy: ", P1
INPUT "Otvetniy: ", O1
INPUT "Nazvanie 2: ", Nazv2$
INPUT "Perviy: ", P2
INPUT "Otvetniy: ", O2
IF P1+O1>P2+O2 THEN
   PRINT Nazv1$
ELSE
   IF P1+O1<P2+O2 THEN
      PRINT Nazv2$
   ELSE
      IF O1-O2>P2-P1 THEN
         PRINT Nazv1$
      ELSE
         IF O1-O2<P2-P1 THEN
            PRINT Nazv2$
         ELSE
            PRINT "Dopolnitelnoe:"
            PRINT Nazv1$
            INPUT D1
            PRINT Nazv2$
            INPUT D2
            IF D1>D2 THEN
               PRINT Nazv1$
            ELSE
               IF D1<D2 THEN
                  PRINT Nazv2$
               ELSE
                  PRINT "Nichia"
               END IF
            END IF
         END IF
      END IF
   END IF
END IF
END

Пример:

Nazvanie 1: A
Perviy: 2
Otvetniy: 0
Nazvanie 2: B
Perviy: 0
Otvetniy: 2
Dopolnitelnoe:
A
? 3
B
? 3
Nichia
4,8(99 оценок)
Ответ:
evelenbar
evelenbar
14.10.2020

S1=31

S2=32

Объяснение:

Чтобы выиграть первым ходом, в куче должно быть от 16 до 30 камней включительно. Соответственно, чтобы выиграть вторым ходом, необходимо чтобы камней было в два раза больше (если первым ходом игрок уменьшает число камней в два раза), то есть от 31 до 60 камней.

Но первым ходом игрок не обязательно уменьшает число камней в два раза. Он может просто взять один камень. В этом случае, в куче должно быть 31 или 32 камня.

С учетом того, что согласно условию задачи, выигрыш должен наступить независимо от того, каким будет первый ход, искомые значения 31 и 32.

4,8(80 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ