program zad3

background image

program zad1;

uses crt;

const n=5;

var

tab:array [1..n] of integer;

tab1:array[1..n] of integer;

i,licznik,suma:integer;

begin

randomize;

for i:=1 to n do

begin

tab[i]:=random(10);

writeln(tab[i]);

end;

for i:=2 to n-1 do tab1[i]:=tab[i-1]+tab[i+1];

tab1[1]:=tab[ 2];

tab1[n]:=tab[n-1];

writeln('nowa tablica');

for i:=1 to n do

writeln(tab1[i]);

readln;

end.

background image


Wyszukiwarka

Podobne podstrony:
Nowy Prezentacja programu Microsoft PowerPoint 5
Charakterystyka programu
1 treści programoweid 8801 ppt
Programowanie rehabilitacji 2
Rola rynku i instytucji finansowych INowy Prezentacja programu Microsoft PowerPoint
Nowy Prezentacja programu Microsoft PowerPoint ppt
Szkoła i jej program
wykluczenie społ program przeciwdział
ProgrammingJavaLecture9
Nowa podstawa programowa WF (1)
Programowanie robotów przemysłowych FANUC
A3 Silnik indukcyjny pierscieniowy program

więcej podobnych podstron