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

Сегодня! дан массив а(10) найти сумму положительных и отрицательных елементов массива. использовать ввод и вывод данных в файл и из файла (input,output) заранее .

👇
Ответ:
1nVictUS
1nVictUS
30.04.2023
Var   
i,su1,su2:integer;
a:array[1..10] of integer; 
 input,output:text;
begin 
 assign(input,'input.txt'); 
 assign(output,'output.txt');
 reset(input); 
 rewrite(output); 
for i:=1 to 10 do     
 read(input,a[i]); 
for i:=1 to 10 do 
    begin       
       if a[i]>0         
          then           
             inc(su1,a[i])
          else         
             inc(su2,a[i]);   
    end;   
writeln(output,'Сумма положительных:',su1); 
write(output,'Сумма отрицательных:',su2);
close(input);
close(output);
end.
4,6(12 оценок)
Открыть все ответы
Ответ:
danchik00148
danchik00148
30.04.2023

Имеются и другие определения из международных и российских стандартов:

совокупность программ системы обработки информации и программных документов[8], необходимых для эксплуатации этих программ (ГОСТ 19781-90[9]);

все или часть программ, процедур, правил и соответствующей документации системы обработки информации (ISO/IEC 2382-1:1993)[10][11];

компьютерные программы, процедуры и, возможно, соответствующая документация и данные, относящиеся к функционированию компьютерной системы (IEEE Std 829—2008)[12].

Программное обеспечение является одним из видов обеспечения вычислительной системы, наряду с техническим (аппаратным), математическим, информационным, лингвистическим, организационным, методическим и правовым обеспечением[13].

Академические области, изучающие программное обеспечение, — это информатика и программная инженерия.

В компьютерном сленге часто используется слово «софт», произошедшее от английского слова «software», которое в этом смысле впервые применил в статье журнала American Mathematical Monthly математик из Принстонского университета

4,5(38 оценок)
Ответ:
nikitagarin2
nikitagarin2
30.04.2023
1. Вот так сейчас решают подобные задачи:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.

Тестовое решение:
-0.00136006072493969

2. А вот так учат писать это же школьные учителя:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
  m:array[1..100] of real;
  i,k:integer;
  s:real;

begin
  s:=0;
  k:=0;
  for i:=1 to 100 do begin
    m[i]:=sin(i)*cos(i);
    if m[i]<>0 then begin
      s:=s+m[i];
      k:=k+1
      end
    end;
  Writeln(s/k)
end.

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