(5,5). , 5, .
program z2;
uses crt;
var
B:array [1..5,1..5] of integer;
i,k,j:integer;
begin clrscr;
writeln ('vvedote elementy massiva B');
for i:=1 to 5 do
for j:=1 to 5 do
read (b[i,j]);k:=0;
for i:=1 to 5 do
for j:=1 to 5 do
if (i=j) and (b[i,j]>5) then k:=k+1;
writeln ('k=',k);
readln;readln;end.
3
, .
, . , . : 1. ,; 2. ,; 3. CASE- . , . . , , - . Visual InterDev, -. CASE- , , .
2. .
. , , , : , , . , . . *.JPS , *.MPS , *.MP3 . . , , : ; ; ; ; ; ; . 3. Excel
(5,5) . .
program z3;
uses crt;
|
|
var
A:array [1..5,1..5] of integer;
i,n,j,k:integer;sa1,s1,sa2,s2:real;
begin clrscr;
writeln ('vvedote elementy massiva A');
for i:=1 to 5 do
for j:=1 to 5 do
read (a[i,j]);s1:=0;s2:=0;k:=0;n:=5;
for i:=1 to 5 do
for j:=1 to 5 do begin
if (i+j<n+1) then
s1:=s1+a[i,j] else
if (i+j>n+1) then begin
s2:=s2+a[i,j];k:=k+1;end;
end;
sa1:=s1/k;sa2:=s2/k;
writeln ('sa1=',sa1:5:3);
writeln ('sa2=',sa2:5:3);
readln;readln;end.
4
1. .
. - , . , . Windows NT Microsoft. . - , . , , .
2. .
. , . . , -, , . . : ; ; , , . , , . 3. Excel