Пиктограмма - знак, выражающий главные черты объекта.
Удачи)
Ответ:
Код ниже
Объяснение:
with open(r"D:\num.txt", "r", encoding='utf-8') as source:
sum = 0
item = 0
for s in source:
sum += int(s)
item += 1
with open(r"D:\result.txt", "w", encoding='utf-8') as dest:
dest.write(str(sum / item))
const T=50;
var a: array [1..T,1..T] of integer;
i,j,n,m:integer;
begin
write('Введите n: ');
readln(n);
write('Введите m: ');
readln(m);
for i:=1 to n do
for j:=1 to m do readln(a[i,j]);
for i:=1 to n do
for j:=1 to m do if i=j then a[i,j]:=a[i,j]*2;
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j],' ');
writeln;
end;
end.
Var A,B,C :real;
time :integer;
begin
Writeln('сколько заработал за лето');
readln(c);
Writeln('стипендия = ');
readln(A);
Writeln('расходы на проживание');
Readln(b);
C:=c+a-b;
while (c>=0) do begin
C:=c+a-b;
b:=b+(b/100*3);
time:=time+1;
end;
writeln('денег хватит на ',time,' месяцев');
<span>end.</span>
Const
n = 12;
Var
i,max,smax,kmax:integer;
a:array[1..n] of integer;
Begin
randomize;
writeln('Исходный массив: ');
for i:= 1 to n do
begin
a[i]:=random(51)-25;
write(a[i]:4)
end;
writeln;
max:=a[1];
for i:= 2 to n do
if max<a[i] then max:=a[i];
writeln('max = ',max);
smax:=0;
kmax:=0;
for i:= 1 to n do
if a[i] = max then
begin
smax:=smax+max;
kmax:=kmax+1;
end;
WriteLn('kmax = ',kmax);
WriteLn('smax = ',smax);
End.
