Forum 09.11.2020

Arhiva Forum

Buna Andreea iată programul în 
Turbo  pascal se poate rezolva 
cu instrucțiunea IF-Else 
var a, b:integer: 
begin 
readln(a,b): 
if a>b then begin a:=a+10: end 
else begin a:=a-10: 
end: 
writeln('a=',a): readln: end.
{comentariu dacă vom introduce 
100,50 ne va afișa a=110 dacă 
100,150 ne va afișa a=90 

 Andreea iată cum va fi programul
Program 114;
var i:integer;

a:array[1..10] of integer;

begin
writeln('introdu 10 numere poz/neg:');
for i:=1 to 10 do 
readln(a[i]);
writeln('numere negative');
for i:=1 to 10 do 
if a[i]<0 then write(' ',a[i]);
writeln;
writeln('numere pozitive');
for i:=1 to 10 do 
if a[i]>0 then write(' ',a[i]);
readln;
end.
{ în acest program se vor 
include 10 numere pozitive
și negative și ulterior
utilizând bucla for de 
la 1 la 10  și instructiunea if 
cu condiția mai mic ca zero-
afișează extrage din tablou
numerele negative. 
Și iarasi a doua buclă for 
și condiția if mai mare 
ca zero va extrage din 
tablou numerele pozitive}