Ответы и объяснения

2014-01-14T19:42:00+00:00
1.
uses crt;
var n,i,ans:integer;
a:array[1..100] of integer;
begin
writeln('Введите количество учащихся и их оценки:');
read(n);
for i:=1 to n do
begin
read(a[i]);
if a[i]=2 then
inc(ans);
end;
writeln(ans);
end.
2.
uses crt;
const n=3;
var i,j:integer;
a:array[1..3,1..3] of integer;
begin
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
if a[1,1]>0 then
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=a[i,j]*4;
write(a[i,j],' ');
end;
writeln;
end;
end
else
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=a[i,j]*7;
write(a[i,j],' ');
end;
writeln;
end;
end.
3.
uses crt;
const n=3;
var i,ans:integer;
s:string;
begin
read(s);
for i:=1 to length(s) do
if s[i]='5' then
inc(ans);
writeln(ans);
end.
Извиняюсь, случайно отправил, сейчас допишу.