Подскажите, составить программу вычесления: суммы всех положительных элементов массива. буду .

👇

Увидеть ответ

Ответ:

Nastya521478

11.01.2021

var

a:array[1..1000]of integer;

i,sum:integer;

begin

readln(n);

sum:=0;

for i:=1 to n do begin

read(a[i]);

inc(sum,a[i]);

end;

writeln(sum);

end.

4,4(23 оценок)

Открыть все ответы

Ответ:

egmoisee

11.01.2021

1)Документ, зафиксированный на электронном носителе (в виде набора символов, звукозаписи или изображения) и предназначенный для передачи во времени и пространстве с использованием средств вычислительной техники и электросвязи с целью хранения и общественного использования[1].Форма представления информации в целях её подготовки, отправления, получения или хранения с электронных технических средств, зафиксированная на магнитном диске, магнитной ленте, лазерном диске и ином электронном материальном носителе[2].Документированная информация, представленная в электронной форме, то есть в виде, пригодном для восприятия человеком с использованием электронных вычислительных машин, а также для передачи по информационно-телекоммуникационным сетям или обработки в информационных системах[3].

Юридическую значимость электронному документу придаёт электронная цифровая подпись, которая на территории Российской Федерации равнозначна собственноручной подписи в документе на бумажном носителе при одновременном соблюдении следующих условий[4]:

сертификат ключа подписи, относящийся к этой электронной цифровой подписи, не утратил силу (действует) на момент проверки или на момент подписания электронного документа;при наличии доказательств, определяющих момент подписания;подтверждена подлинность электронной цифровой подписи в электронном документе;электронная цифровая подпись используется в соответствии со сведениями, указанными в сертификате ключа подписи
2)Файл (англ. file) — именованная область данных на носителе информации.

Работа с файлами реализуется средствами операционных систем. Многие операционные системы приравнивают к файлам и обрабатывают сходным образом и другие ресурсы:

области данных (необязательно на диске);устройства — как физические, например, порты или принтеры, так и виртуальные (/dev/null, /dev/random, /dev/urandom);потоки данных (именованный канал);сетевые ресурсы, сокеты;прочие объекты операционной системы
3)И́мя фа́йла — строка символов, однозначно определяющая файл в некотором пространстве имён файловойсистемы (ФС), обычно называемом каталогом, директорией или папкой. Имена файлов строятся поправилам, принятым в той или иной файловой и операционной системах (ОС). Многие системы позволяютназначать имена как обычным файлам, так и каталогам и специальным объектам (символическим ссылкам,блочным устройствам и т. п.).

Имя файла является частью полного имени файла, также называемого полным или абсолютным путём кфайлу. Полное имя может включать следующие компоненты:

протокол или доступа имя или адрес компьютера, узла сети (устройство хранения, диск ;путь к каталогу (;собственно имя файла, которое может содержать его расширение (.txt, .exe, .COM и т. п.);версия или номер ревизии[уточнить].
4)Расширение имени файла (англ. filename extension, часто говорят просто расширение файла или расширение) — последовательность символов, добавляемых кимени файла и предназначенных для идентификации типа (формата) файла. Это один из распространённых с которых пользователь илипрограммное обеспечение компьютера может определить тип данных, хранящихся в файле.

Расширение обычно отделяется от основной части имени файла точкой. В операционных системах CP/M и MS-DOS длина расширения была ограничена тремя символами, в современных операционных системах это ограничение отсутствует. Иногда могут использоваться несколько расширений, следующих друг за другом, например, «.tar.gz».

В файловой системе FAT16 имя файла и расширение являлись отдельными сущностями, а точка, разделявшая их, реально не являлась частью полного имени файла и служила лишь для визуального отделения имени файла от расширения. В файловых системах FAT32 и NTFS точка стала обычным разрешённым символом в имени файла, поэтому ограничения на количество точек в имени файла в этих системах и их местоположения были сняты (за некоторыми исключениями, например, все конечные точки в именах файлов просто отбрасываются).

Некоторые операционные системы или менеджеры файлов могут устанавливать соответствия между расширениями файлов и приложениями. Когда пользователь открывает файл с зарегистрированным расширением, автоматически запускается соответствующая этому расширению программа. Некоторые расширения показывают, что файл сам является программой.

4,7(49 оценок)

Ответ:

ксения1279мпсалч

11.01.2021

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var a,b,h,x:real;
Write('Введите a b h: '); Read(a,b,h);
if a>b then Swap(a,b); // поменять местами
if h<=0 then Writeln('Шаг h должен быть положительным')
else begin
    x:=a;
    while x<=b+h/2 do begin // +полшага на погрешность накопления
      Writeln('x=',x:0:4,', y=',x>0?1/x-5:2*x);
      x+=h
      end
    end
end.

Тестовое решение:
Введите a b h: -2.46 3.73 0.18
x=-2.4600, y=-4.92
x=-2.2800, y=-4.56
x=-2.1000, y=-4.2
x=-1.9200, y=-3.84
x=-1.7400, y=-3.48
x=-1.5600, y=-3.12
x=-1.3800, y=-2.76
x=-1.2000, y=-2.4
x=-1.0200, y=-2.04
x=-0.8400, y=-1.68
x=-0.6600, y=-1.32
x=-0.4800, y=-0.96
x=-0.3000, y=-0.6
x=-0.1200, y=-0.24
x=0.0600, y=11.6666666666667
x=0.2400, y=-0.83333333333333
x=0.4200, y=-2.61904761904762
x=0.6000, y=-3.33333333333333
x=0.7800, y=-3.71794871794872
x=0.9600, y=-3.95833333333333
x=1.1400, y=-4.12280701754386
x=1.3200, y=-4.24242424242424
x=1.5000, y=-4.33333333333333
x=1.6800, y=-4.4047619047619
x=1.8600, y=-4.46236559139785
x=2.0400, y=-4.50980392156863
x=2.2200, y=-4.54954954954955
x=2.4000, y=-4.58333333333333
x=2.5800, y=-4.61240310077519
x=2.7600, y=-4.63768115942029
x=2.9400, y=-4.65986394557823
x=3.1200, y=-4.67948717948718
x=3.3000, y=-4.6969696969697
x=3.4800, y=-4.71264367816092
x=3.6600, y=-4.72677595628415

4,6(54 оценок)

Это интересно:

Искусство-и-развлечения

27.05.2020

Колыбель для кошки: правила игры и советы для начинающих...

Хобби-и-рукоделие

03.01.2020

Как легко стать ниндзя: советы от профессионалов...

Хобби-и-рукоделие

27.05.2020

Практические советы: Как нарисовать двигающийся паркет мозаику...

Компьютеры-и-электроника