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

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

Показать ответ
Ответ:
elzamarg
elzamarg
03.10.2020 01:19
Var A,B,S:array[1..62] of real;i,j,k:integer;n,m:real;Year,Month, Day, Wk : Word;
begin
Year:=2015;Month:=07; Day:=01;
randomize;
for j:= 1 to 2 do begin
if j= 2 then Month:= Month + 1;
for I:= 1 to 31 do begink:= k +1;
n:= Round((random()*100 +1) *100);
m:= Round((random()*150 +1) *100);
A[k]:= n / 100;
B[k]:= m / 100;
S[k]:= A[k] + B[k];Day:= I;
write(Day, '.',Month, '.',Year);writeln(' ', A[k]:8, B[k]:8, S[k]:9);end;
end;end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота