Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.03.2012, 13:45   #1
Anna Greyburg
Новичок
Джуниор
 
Регистрация: 15.03.2012
Сообщений: 2
По умолчанию Задача в С++, есть решение на паскале .

Фирме принадлежат два магазина. Известна стоимость товаров, проданных в каждом магазине за каждый день в июле и августе, которая хранится в двух массивах. Получить общую стоимость проданных фирмой товаров за два месяца.
Код:
program turner;
uses crt;
var a: array[1..60] of integer;
  b: array[1..60] of integer;
  i, s, s1: integer;
begin
  clrscr;
  Randomize;
  for i := 1 to 30 do begin
    a[i] := random(1000) + 200;
    b[i] := random(1000) + 200;
  end;
  s := 0; s1 := 0;
  for i := 1 to 60 do s := s + a[i];
  for i := 1 to 60 do s1 := s1 + b[i];
  textcolor(green);
  writeln('первая фирма заработола: ', s);
  writeln('вторая фирма заработола: ', s1);
  if s > s1 then writeln('вторая фирма заработала меньше')
  else writeln('первая фирма заработала меньше');
  readln;
end.
Anna Greyburg вне форума Ответить с цитированием
Старый 15.03.2012, 14:21   #2
Anna Greyburg
Новичок
Джуниор
 
Регистрация: 15.03.2012
Сообщений: 2
По умолчанию

ВСе спасибо, уже не надо )
Anna Greyburg вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Возможно ли это на паскале?)задача состоит в следующем:есть множество символов,к примеру.. nidaime Паскаль, Turbo Pascal, PascalABC.NET 5 14.12.2011 06:54
задача. Создание решение робей на паскале. korib Паскаль, Turbo Pascal, PascalABC.NET 4 27.04.2011 17:44
Строки.(решение есть работающие, но есть 1 но((( Bombastick Microsoft Office Excel 6 28.12.2010 01:11
Есть задача, интересует решение savva-paladin Помощь студентам 1 04.12.2010 13:20
Есть ли решение? Vergo Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 6 14.10.2010 22:48