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

Дан одномерный массив, состоящий из вещественных элементов. найти сумму элементов массива, расположенных до последнего положительного элемента.

👇
Ответ:
skachkov1562
skachkov1562
04.09.2020

var

  a : array [1..100] of real;

  n, i : integer;

  flag : boolean;

  sum : real;

begin

  read (n);

  for i := 1 to n do read (a[i]);

  flag := false; sum := 0;

  for i := n downto 1 do

    if flag then sum := sum + a[i]

    else if a[i] > 0 then flag := true;

  writeln (sum);

end.

4,5(62 оценок)
Открыть все ответы
Ответ:
anickava
anickava
04.09.2020
Procedure Dec2Oct(n:longint);
{ Перевод натурального десятичного n в восьмеричную систему счисления
  и вывод результата }
const
  alpha = '01234567';
var
  s: string;
  i:integer;
begin
  s := '';
  while n > 0 do begin
    s := alpha[(n mod 8) + 1] + s;
    n := n div 8
  end;
  for i:=Length(s) to 9 do s:='0'+s;
  Write(s)
end;

{ Использование }
var
  x:longint;
begin
  Write('Введите десятичное число: '); Read(x);
  Write('В восьмеричной системе счисления: ');
  Dec2Oct(x);
  Writeln
end.

Тестовое решение:
Введите десятичное число: 1234567
В восьмеричной системе счисления: 0004553207
4,8(11 оценок)
Ответ:
арина1495
арина1495
04.09.2020
Разгадайте кроссворд:1.) Другое название прикладной программы. ( 10 букв )
2.)Изображение на экране монитора готового к работе компьютера ( два слова) ( 7 букв в первом слове и 4 буквы во втором слове ) 
3.) Единица информации , равная восьми битам. ( 4 буквы)
4.) Группа файлов, имеющая имя; контейнер для файлов. ( 6 букв)
5.) Прямоугольная область, занимаемая на рабочем столе работающей программой. ( 4 буквы)
6.) Файл содержащий данные ( рисунки, тексты). ( 8 букв)
7.) обязательная часть програмного обеспечения - ... система. ( 12 букв)
8.) самая маленькая единица измерения информации. ( 3 буквы)
9.) информация хранящаяся в долговременной памяти как единое целое и обозначенная именем. ( 4 буквы)1. Приложение
2. Добро
3. Байт
4. Каталог, папка. директория, фолдер
5. Окно
6. Документ
7. Операционная система
8. бит
9. Файл 
4,8(94 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ