SHARE
TWEET

Untitled

a guest Apr 21st, 2019 79 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  Program lab4;
  2.  uses wincrt, strings;
  3.  var names:array[0..9] of string;
  4.      sex:array[0..9] of char;
  5.      price:array[0..9] of integer;
  6.      n, i, max, m, g, k:integer;
  7.  
  8.  begin
  9.       Writeln('Введите число покупателей (до 10)');
  10.       while (n < 1) or (n > 10) do
  11.           Readln(n);
  12.  
  13.       for i:=0 to n - 1 do
  14.           begin
  15.                Writeln('Покупатель ', i+1);
  16.  
  17.                Writeln('Имя');
  18.                Readln(names[i]);
  19.  
  20.                Writeln('Пол');
  21.                Readln(sex[i]);
  22.  
  23.                Writeln('Цена товара');
  24.                Readln(price[i]);
  25.           end;
  26.  
  27.       for i:=0 to n do
  28.           begin
  29.           for k:=i to n do
  30.               if (names[i] = names[k]) and (sex[i] = sex[k]) then
  31.                  m:=m + price[k];
  32.           if m > max then
  33.              begin
  34.                  max:=m;
  35.                  g:=i;
  36.              end;
  37.           m:=0;
  38.           end;
  39.       Writeln('Покупатель, потративший больше всего');
  40.       Writeln('Имя:', names[g], ' пол:', sex[g], ' сумма:', max);
  41.  end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top