Napisz w Turbo Pascalu Program, który będzie pokazywał sumę 2 kolejnych elementów tablicy (1+2 , 3+4, 5+6) o rozmiarze 200.Wartość tablicy przydziel losowe.
vegixa
Nie wiem czy o takie coś Ci chodziło, ale gdyby nie o to to napisz na PM co poprawić i coś wymyślimy.
Program losowatalbica; uses CRT; var i: integer; tablica: array[1..200] of integer; begin Clrscr; Randomize; for i := 1 to 200 do tablica[i] := random(100); i := 1; repeat WriteLn('Suma ',i,' elementu oraz ',i+1,' elementu wynosi: ', tablica[i]+tablica[i+1]); i := i + 2; until (i = 201); readln; end.
Program losowatalbica;
uses CRT;
var
i: integer;
tablica: array[1..200] of integer;
begin
Clrscr;
Randomize;
for i := 1 to 200 do
tablica[i] := random(100);
i := 1;
repeat
WriteLn('Suma ',i,' elementu oraz ',i+1,' elementu wynosi: ', tablica[i]+tablica[i+1]);
i := i + 2;
until
(i = 201);
readln;
end.