Известны оценки по контрольной работе по информатике в вашей группе. подсчитать количество полученных четвертое и пятерок. (дан массив целочисленный, определить количество элементов массива, значение которого больше трех) составьте, , программу,

Const n=10;
var a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
for i:=1 to n do
 begin
 a[i]:=random(4)+2;
 write(a[i]:5);
 end;
writeln;
k:=0;
for i:=1 to n do
 if a[i]>3 then k:=k+1;
writeln('k = ',k);
end.

Пример:
5 3 3 2 5 4 4 3 5 3
k = 5

Написали бы язык программирования хотя бы. Вот вам на java ^_^
import java.io.BufferedReader;
import java.io.InputStreamReader;

public class prog{
 public static void main(String[] args) throws Exception{
 BufferedReader reader=new BufferedReader(new  InputStreamReader(System.in));
 System.out.println("Введите гипотенузу:");
 int c=Integer.parseInt(reader.readLine());
 System.out.println("Введите длину катета:");
 int a=Integer.parseInt(reader.readLine());
 double b=Math.sqrt(c*c-a*a);
 double P=a+b+c;
 System.out.println("Периметр: "+P);
 double S=(a*b)/2;
 System.out.println("Площадь: "+S);
}
}

Объяснение:

var

 N, K, L, P, a : integer;

i : integer;

 p0, b : Double;

begin

writeln ('Введите объём бидона ');            readln (N);

writeln ('Введите количество улиц ');        readln (К);

writeln ('Введите количество литров на улицу ');       readln (L);

writeln ('Введите цену литра молока ');    readln (P);

p0 := n*p; // цена всего бидона первоначально

 for I := 1 to k - 1 do begin   //  с 1 т.к. первой улице не разбадяжил

   p0 := p0 - l*p0/n;  // стоимость всего молока реальная для каждой улицы

   b := (p-p0/n)*l; // на сколько денег обманул улицу

   writeln(Format('%d улице должен вернуть = %f ', [i, b]))

end;

end.