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 можешь поменять на любое другое
По всем вопросам пиши в ЛС
Давай сравним все 4 числа между собой, найдём максимальное и вычтем из него N.
#include <bits/stdc++.h>
using namespace std;
int main() {
int a, b, c, d, n;
cin >> a >> b >> c >> d >> n;
if (a > b && a > c && a > d)
a -= n;
else if (b > a && b > c && b > d)
b -= n;
else if (c > a && c > b && c > d)
c -= n;
else d -= n;
cout << a << " " << b << " " << c << " " << d << endl;
return 0;
}
i,s,n:integer;
begin
write ('Введите количество элементов массива: ');
readln (n);
a := new integer[n];
for i:= 0 to n-1 do
a[i]:= random(13);
writeln(a);
for i:=0 to n-1 do
s:=s+a[i];
writeln('Среднее арифметическое элементов массива равно: ',s/n)
end.