Program maxx;
var ocenka,sdal,nesdal,k,i:integer;
begin
writeln('введите кол-во оценок');
readln(k);
sdal:=0;
nesdal:=0;
for i:=1 to k do
begin
readln(ocenka);
if ocenka>2
then sdal:=sdal+1;
else nesdal:=nesdal+1;
end;
writeln(sdal);
writeln(nesdal);
<span>end.</span>
Названия и адреса файлов подгоните сами. Я выделю в коде жирным шрифтом.
uses crt;
var i,o:text;
s:string;
ans:integer;
begin
assign(i,'C:\Pascal\input.txt'); reset(i);
assign(o,'C:\Pascal\output.txt'); rewrite(o);
while eoln(i)<>true do
begin
readln(i,s);
if ((s[2]>s[1]) and (s[3]>s[2]) and (s[4]>s[3])) or ((s[2]<s[1]) and (s[3]<s[2]) and (s[4]<s[3])) then
begin
writeln(o,s);
inc(ans);
end;
end;
writeln(ans);
close(o);
<span>end.</span>
var a, b, res: real;
begin
readln(a, b);
if a > b then res:= a + b
else if a < b then res:= a - b
else res:= a * b;
writeln(res);
end.
Scratch,Free Pascal , Lazarus, Python.
#include <iostream>
using namespace std;
int main()
{<span>
int zap=0;
max=0;
mas[30];</span><span>
int i;</span><span>
for(i=0; i<30; i++)</span><span> cin >> mas[i];</span>
<span> for(i=0; i<30; i++)</span><span>
if(max<mas[i] && mas[i]%3==0 && mas[i]%5==0)
{</span><span> max=mas[i];</span><span> zap=i;</span><span> }</span>
<span> cout << "max :" << max << "nomer :" << zap << '\n';</span><span>
system("pause>>null");</span><span>
return 0;
</span><span>}</span>