Var i, k: integer;
var arr: array[0..19] of integer;
begin
for i := 0 to 19 do
read(arr[i]);
for i := 0 to 19 do
if arr[i] mod 10 = 4 then
k := k + 1;
writeln(k);
end.
Const n = 50;
var
a :array [1..n] of integer;
i, sum :integer;
sr :real;
begin
randomize;
for i:= 1 to n do
a[i]:= random(100);
for i:= 1 to n do
sum:= sum + a[i];
sr:= sum/n;
writeln(sr);
end.
Паскаль.
<span>
<span>Program Primer;
VAR :x; y; z;integer
BEGIN
</span><span>x=5
y=-6
if x>y then z=x+y
else z=y-x
writeln (z)
END.</span></span>
Зеленый свет, пошел, посмотрелна лево, дошел до середины, посмотрел на право,