С клавиатуры вводится натуральное число k (1 ≤ k ≤ 9999), определяющее стоимость товара в копейках. Выразить стоимость в рублях и копейках. For example:
Input Result 25 25 копеек 321 3 рубля 21 копейка 1505 15 рублей 5 копеек 100 1 рубль ровно
{12. Дан массив А(3*4). Найти сумму первых отрицательных элементов в каждом столбце.}
uses crt; const N=3; M=4; var a: array [1..N,1..M] of real; x,y:integer; min,sum:real; begin sum:=0; for x:=1 to N do begin for y:=1 to M do begin a[x,y]:=random(10)-5; write(a[x,y]:3:0); end; writeln; end; writeln; for y:=1 to M do begin min:=0; for x:=N downto 1 do if a[x,y]<0 then min:=a[x,y]; sum:=sum+min; end; writeln; writeln('Сумма первых отрицательных элементов в каждом столбце: ',sum); end.
--- {13. Даны два массива А(3*3) и В(3*3). Вывести на экран тот из них, у которого меньше сумма элементов главной диагонали.}
uses crt; const N=3; var a,b: array [1..N,1..N] of integer; x,y,sum1,sum2: integer; begin sum1:=0; sum2:=0; for x:=1 to N do begin for y:=1 to N do begin a[x,y]:=random(10); if x=y then sum1:=sum1+a[x,y]; write(a[x,y]:3); end; writeln; end; writeln; for x:=1 to N do begin for y:=1 to N do begin b[x,y]:=random(10); if x=y then sum2:=sum2+b[x,y]; write(b[x,y]:3); end; writeln; end; if sum1<>sum2 then begin writeln('Сумма элементов главной диагонали меньше в массиве: '); for x:=1 to N do begin for y:=1 to N do if sum1>sum2 then write(b[x,y]:3) else write(a[x,y]:3); writeln; end; end; if sum1=sum2 then writeln('Сумма элементов главной диагонали одинакова'); end.
--- {17.Дан массив А(3*4). Заменить все отрицательные элементы на противоположные.}
uses crt; const N=3; M=4; var a: array [1..N,1..M] of real; x,y:integer; begin for x:=1 to N do begin for y:=1 to N do begin a[x,y]:=random(10)-5; write(a[x,y]:3:0); if a[x,y]<0 then a[x,y]:=-a[x,y]; end; writeln; end; writeln; for x:=1 to N do begin for y:=1 to N do write(a[x,y]:3:0); writeln; end; end.
uses crt;
const N=3;
M=4;
var a: array [1..N,1..M] of real;
x,y:integer;
min,sum:real;
begin
sum:=0;
for x:=1 to N do begin
for y:=1 to M do begin
a[x,y]:=random(10)-5;
write(a[x,y]:3:0);
end;
writeln;
end;
writeln;
for y:=1 to M do begin
min:=0;
for x:=N downto 1 do
if a[x,y]<0 then min:=a[x,y];
sum:=sum+min;
end;
writeln;
writeln('Сумма первых отрицательных элементов в каждом столбце: ',sum);
end.
---
{13. Даны два массива А(3*3) и В(3*3). Вывести на экран тот из них, у которого меньше сумма элементов главной диагонали.}
uses crt;
const N=3;
var a,b: array [1..N,1..N] of integer;
x,y,sum1,sum2: integer;
begin
sum1:=0; sum2:=0;
for x:=1 to N do begin
for y:=1 to N do begin
a[x,y]:=random(10);
if x=y then sum1:=sum1+a[x,y];
write(a[x,y]:3);
end;
writeln;
end;
writeln;
for x:=1 to N do begin
for y:=1 to N do begin
b[x,y]:=random(10);
if x=y then sum2:=sum2+b[x,y];
write(b[x,y]:3);
end;
writeln;
end;
if sum1<>sum2 then begin
writeln('Сумма элементов главной диагонали меньше в массиве: ');
for x:=1 to N do begin
for y:=1 to N do
if sum1>sum2 then write(b[x,y]:3)
else write(a[x,y]:3);
writeln;
end;
end;
if sum1=sum2 then writeln('Сумма элементов главной диагонали одинакова');
end.
---
{17.Дан массив А(3*4). Заменить все отрицательные элементы на противоположные.}
uses crt;
const N=3;
M=4;
var a: array [1..N,1..M] of real;
x,y:integer;
begin
for x:=1 to N do begin
for y:=1 to N do begin
a[x,y]:=random(10)-5;
write(a[x,y]:3:0);
if a[x,y]<0 then a[x,y]:=-a[x,y];
end;
writeln;
end;
writeln;
for x:=1 to N do begin
for y:=1 to N do
write(a[x,y]:3:0);
writeln;
end;
end.