Do dwuwymiarowej tablicy 5x5 wprowadź wylosowane liczby z zakresu 1 do 5. Wyprowadź zawartość tablicy na ekran - wierszami. Wypisz ile było liczb większych od 2.
program z1;
uses crt;
const
n=5;
var
i,j,L:integer;
A:array[1..n,1..n] of integer;
begin
clrscr;
randomize;
for i:=1 to n do
for j:=1 to n do
A[i,j]:=random(5)+1;
writeln('To jest zawartosc tablicy');
for i:=1 to n do
begin
for j:=1 to n do
write(A[i,j]:3);
writeln;
end;
for i:=1 to n do
for j:=1 to n do
if A[i,j]>2 then L:=L+1;
writeln('Liczb wiekszych od 2 jest ',L);
readln;
end.
Do jednowymiarowej tablicy wprowadź 10 liczb. Wyprowadź te liczby w postaci jednej kolumny, od najmniejszej do największej.
program z2;
uses crt;
const n=10;
var
r,i,j:integer;
a:array[1..n] of integer;
begin
clrscr;
randomize;
for i:=1 to n do
A[i]:=random(15)+1;
writeln('To wylosowane liczby');
for i:=1 to n do
write(A[i]:3);
for j:=1 to n-1 do
for i:=1 to n-1 do
if a[i]>A[i+1] then
begin
r:=A[i];
A[i]:=A[i+1];
A[i+1]:=r;
end;
writeln;
writeln('Oto liczby w kolumnie od najmniejszej');
for i:=1 to n do
writeln(A[i]);
readln;
end.
Do jednowymiarowej tablicy wprowadź 5 liczb i wypisz wszystkie większe od 3.
program z3;
uses crt;
const n=5;
var i:integer;
a:array[1..n] of integer;
begin
clrscr;
randomize;
for i:=1 to n do
A[i]:=random(5);
writeln('To wylosowane liczby');
for i:=1 to n do
write(A[i]:3);
writeln;
writeln('Oto liczby mniejsze od 3');
for i:=1 to n do
if A[i]>3 then write(A[i]:3);
readln;
end.
Napisz program, który wypisze na ekranie liczby leżące na głównej przekątnej w tablicy 4 na 4. Dane mają być wylosowane z zakresu 1 do 10, tablica wyprowadzona na ekran.
program z4;
uses crt;
const
n=4;
var
i,j:integer;
A:array[1..n,1..n] of integer;
begin
clrscr;
randomize;
for i:=1 to n do
for j:=1 to n do
A[i,j]:=random(10)+1;
writeln('To jest zawartosc tablicy');
for i:=1 to n do
begin
for j:=1 to n do
write(A[i,j]:3);
writeln;
end;
writeln('Liczby lezace na glownej przekatnej to ');
for i:=1 to n do
write(A[i,i]:3);
readln;
end.
Do jednowymiarowej tablicy wprowadź losowo 20 liczb z zakresu 1 do 5. Wyprowadź na ekran tablicę w 4 wierszach po 5 elementów. Jako wynik wyprowadź w jednym wierszu liczby równe 3.
program z5;
uses crt;
const n=20;
var i:integer;
a:array[1..n] of integer;
begin
clrscr;
randomize;
for i:=1 to n do
A[i]:=random(5)+1;
writeln('To wylosowane liczby');
for i:=1 to n do
begin
write(A[i]:3);
if i mod 5 = 0 then
writeln;
end;
writeln('Oto liczby rowne 3');
for i:=1 to n do
if A[i]=3 then writeln(A[i]:3, 'pozycja ',i:2);
readln;
end.
Do jednowymiarowej tablicy wprowadź losowo 15 liczb z zakresu 1 do 4. Wyprowadź liczby w jednym wierszu, jako wynik podaj ilość liczb parzystych.
program z6;
uses crt;
const n=15;
var i,j:integer;
a:array[1..n] of integer;
begin
clrscr;
randomize;
for i:=1 to n do
A[i]:=random(4)+1;
writeln('To wylosowane liczby');
for i:=1 to n do
write(A[i]:3);
writeln;
for i:=1 to n do
if A[i] mod 2=0 then j:=J+1;
writeln('Liczb parzystych jest ',j);
readln;
end.
Napisz program, który wyświetli na ekranie liczby z tablicy 4 na 4 , które są mniejsze od wartości średniej całej tablicy. Dane mają być wylosowane z zakresu 1 do 10, tablica wyprowadzona na ekran.
program z7;
uses crt;
const
n=4;
var
i,j,S:integer;
sr:real;
A:array[1..n,1..n] of integer;
begin
clrscr;
randomize;
for i:=1 to n do
for j:=1 to n do
A[i,j]:=random(10)+1;
writeln('To jest zawartosc tablicy');
for i:=1 to n do
begin
for j:=1 to n do
write(A[i,j]:3);
writeln;
end;
for i:=1 to n do
for j:=1 to n do
S:=S+A[i,j];
sr:=s/(n*n);
writeln('srednia calej tablicy to ',sr:3:2);
writeln('Liczby mniejsze od sredniej calej tablicy to ');
for i:=1 to n do
for j:=1 to n do
if A[i,j]<sr then
write(A[i,j]:3);
readln;
end.
Napisz program, który policzy sumę wszystkich liczb nieparzystych w 10-cio elementowej tablicy. Dane mają być wylosowane z zakresu 1 do 10, tablica wyprowadzona na ekran.
program z8;
uses crt;
const n=10;
var s,i:integer;
a:array[1..n] of integer;
begin
clrscr;
randomize;
for i:=1 to n do
A[i]:=random(10)+1;
writeln('To wylosowane liczby');
for i:=1 to n do
write(A[i]:3);
writeln;
for i:=1 to n do
if A[i] mod 2 = 1 then S:=S+A[i];
writeln('Suma liczb nieparzystych ',s);
readln;
end.
4