В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Даниил358
Даниил358
07.12.2022 14:47 •  Информатика

Напишите программу вычисления оплаты за содержание жилья, которая учитывает стоимость 1 кв.метра жилья, количество жильцов, благоустроенность, наличие лифта.
с++​

Показать ответ
Ответ:
tanya200525
tanya200525
10.09.2020 06:54

1

var

mas:array[1..100] of integer;

i,n:integer;

en,out:text;

res:real;

qw,qwe:string;  

begin

 n:=0;

 i:=1;

 write('Введите полный путь к импортируемому файлу: ');readln(qw);

 write('Введите полный путь к экспортируемому файлу: ');readln(qwe);

 assign(en,qw+'.txt'); assign(out,qwe+'.txt');  

 reset(en); rewrite(out);

 while not Eof(en) do    

 begin

 readln(en,mas[i]);      

 n:=n+mas[i];                

 inc(i);        

 end;

   res:=(n/(i-1));  

   write(out,res);  

   close(out);      

   close(en);

 end.

Там во вторую тупо добавляешь:

 max:=-100001;

 min:=100001;

if (mas[i]<0) and (mas[i] mod 2 = 0) and (mas[i]<min) then min:=mas[i];

 if (mas[i]>0) and (mas[i] mod 2 = 1) and (mas[i]>max) then max:=mas[i];  

if (max=-100001)or(min=100001) then writeln(out,'ERROR: please, rewrite yor file')

 else  

 begin

   writeln(out,min);

   writeln(out,max);  

Тоже такие же задачи решал)) лол). Ты не из 604??)))

0,0(0 оценок)
Ответ:
ЗАЙКА200515
ЗАЙКА200515
18.01.2020 21:19
Const n=10; m=5;
var
   i,j,k:integer;
   A:array[1..n] of integer;
   B,C:array[1..m] of integer;
begin
   writeln('Введите элкменты массива');
   for i:=1 to n do readln(a[i]);
   j:=0; k:=0;
   for i:=1 to n do
     if i mod 2=1 then begin j:=j+1; B[j]:=A[i] end
     else begin k:=k+1; C[k]:=A[i] end;
   writeln('Массив А');
   for i:=1 to n do write(A[i],' ');
   writeln;
   writeln('Массив B');
   for i:=1 to j do write(B[i],' ');
   writeln;
   writeln('Массив C');
   for i:=1 to k do write(C[i],' ');
   writeln
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота