Составьте блок-схему и программу решения следующей . три человека пообедали в ресторане. официант подал счет на х рублей каждому. они решают оставить чаевые в размере 15% от счета. найдите сумму чаевых , которую получил официант.
Эта автоматически тебе всё сделает. Var i, n, max : Integer; a : array [1..30] of Integer; begin for i := 1 to 30 do begin Write('a[', i, ']='); a[i]:=i+1; if max<a[i] then max:=a[i]; writeln(a[i]); end; writeln('Максимальный элемент равен: ',max); end.
Если нужно будет ввести последовательность с клавиатуры, то вот: Var i, n, max : Integer; a : array [1..30] of Integer; begin for i := 1 to 30 do begin Write('a[', i, ']='); ReadLn (a[i]); if max<a[i] then max:=a[i]; end; writeln('Максимальный элемент равен: ',max); end.
DIM x AS INTEGER, y AS INTEGER CLS INPUT "X=", x INPUT "Y=", y REDIM C(1 TO x, 1 TO y) AS INTEGER REDIM k(1 TO y) AS INTEGER REDIM a(1 TO y) AS DOUBLE RANDOMIZE TIMER PRINT "M A T R I X C" FOR i = 1 TO x k(i) = 0: a(i) = 0 FOR j = 1 TO y C(i, j) = INT(50 * RND + 10) PRINT USING "###"; C(i, j); IF C(i, j) MOD 7 = 0 THEN k(i) = k(i) + 1 a(i) = a(i) + C(i, j) END IF NEXT j PRINT NEXT i PRINT FOR i = 1 TO y PRINT USING "###"; k(i); NEXT i PRINT " - Количество" PRINT "Средние" FOR i = 1 TO y IF k(i) <> 0 THEN a(i) = a(i) / k(i) PRINT a(i) ELSE PRINT "Infinity" END IF NEXT i
Пример работы программы X=6 Y=9 M A T R I X C 38 40 31 33 31 22 54 16 43 23 56 11 19 18 11 34 47 13 59 59 26 23 54 15 53 20 33 28 24 39 46 42 37 47 45 41 20 25 39 35 16 13 12 17 27 17 49 22 29 28 29 52 40 55
begin
write('Счет 1: ');
readln(a);
write('Счет 2: ');
readln(b);
write('Счет 3: ');
readln(c);
s:=((a+b+c)/100)*15;
write('Чаевые ',s)
end.