1)
var a:string;
s,i:integer;
begin
read(a);
s:=0;
for i:=1 to length(a) do
if a[i]='o' then s:=s+1;
Writeln(s);
end.
2)
var A:array[1..1000] of integer;
N,i:integer;
s:real;
begin
Read(N);
s:=0;
for i:=1 to N do
read(A[i]);
for i:=1 to N do
s:=s+a[i];
s:=s/N;
writeln(s:3:3);
end.
3)
var a:string;
s:integer;
begin
read(a);
s:=length(a);
if a[1]=a[s] then writeln('Da') else writeln('Net');
end.
4)
var a,b:integer;
f:text;
begin
assign(f,'in.txt');
reset(f);
read(f,a,b);
Writeln(a+b);
Writeln(a-b);
Writeln((a+b)/2);
close(f);
end.
Вроде все корректно, проверь
В 4 задаче, название файла in.txt можешь поменять на любое другое
По всем вопросам пиши в ЛС
using namespace std;
int main()
{
int n, k;
cout <<"n = ", cin >> n;
cout <<"k = ", cin >> k;
int A[n][k], D[k];
cout <<"A("<<n<<","<<k<<"):\n";
for(int i = 0; i < n; i++)
for(int j = 0; j < k; j++)
cin >> A[i][j];
cout <<"\nD("<<k<<"): ";
for(int i = 0; i < k; i++)
cin >> D[i];
int b;
for(int i = 0; i < n; i++)
{
b = 1;
for(int j = 0; j < k; j++)
if (D[j] != A[i][j]) b = 0;
if (b > 0) cout <<i<<" ";
}
return 0;
}