|
Turbo pascal diziler üzerinde toplama işlemi |
|
Soru: arkadşlar çok acil yardm edin klavyedeb 2 ayrı diziye sayı
girilmektdir.girilen sayılarn toplamı 3.bir diziye aktarılıp aşağıdaki
şekilde yazdıran program?
dizi1 dizi2 toplam --------- ------- --------- 7 10 17 80 5 85 ' ' ' ' ' ' die dwam edio..
Cevap:
uses crt; var i, j, yedek :integer; a:array[1..10] of integer; b:array[1..10] of integer; c:array[1..10] of integer; begin clrscr; for i:=1 to 10 do begin write(i); write('. sayıyı giriniz :'); readln(a[i]); end; for i:=1 to 10 do begin write(i); write('. sayıyı giriniz :'); readln(b[i]); end; for i:=1 to 10 do begin c[i]:=a[i]+b[i]; end; for i:=1 to 10 do begin writeln(c[i]); end; readkey; end.
|
Yorumlar
RSS beslemesi, bu iletideki yorumlar için