Program asd;
Const n=4;
m=3;
Var A:array[1..n,1..m] of integer;
B,jd,id:array[1..n] of integer;
i,j,k,min,ii,jj:integer;
BEGIN
For i:=1 to n do
begin
For j:=1 to m do
begin
A[i,j]:=2+Random(8);
Write(A[i,j],' ');
end;
Writeln;
end;
Writeln; ii:=1;
For i:=1 to n do
begin
min:=1000;
for j:=1 to m do
begin
jj:=1;
If A[i,j]<=min then
begin
min:=A[i,j];
id[i]:=i;
jd[i]:=j;
end;
end;
B[i]:=min;
end;
For i:=1 to n do
begin
Writeln('Min: ',B[i],'. Строка: ',id[i],'; Столбец: ',jd[i],';');
end;
<span>END.</span>
#include <iostream>
<span>#include <iomanip>
</span><span>#include <fstream>
</span><span>using namespace std;
</span>int main() {
<span> int n;
</span><span> float s=0;
</span><span> ifstream f;
</span><span> f.open("input.txt");
</span><span> while(!f.eof()) {
</span><span> f>>n;
</span><span> while (n>0) { s+=n%10; n=n/10; }
</span><span> }
</span><span> f.close();
</span><span> cout<<s<<endl;
</span><span> system("pause");
</span><span> return 0;
</span><span>}
</span>
Подключаться к интернету,загружать программы и приложения,проигрывать музыку,фотографировать... Удачи:)
Немного неказисто. и без стрелочек. а так норм.
1)ввели a,b,c,d :a=2.5;b=1;c=6;d=0.3
2)s:=(2.5+1+6+0.3)/4=9.8/4=2.45
3)вывели S