Question

Potrzebuję następujące programy:

1) Program, który liczy sumę 20 wygenerowanych liczb od 0 do 100.

2) Program, który wygeneruje elementy macierzy A (integer) a następnie wprowadzi z klawiatury elementy macierzy B (integer). Program ma liczyć A-B

Answer 1

Ad.1

program oceny;
uses crt;
var
i, suma: integer;
liczba: array[1..20] of integer;
begin
clrscr;
Write('Suma liczb ');
Randomize;
for i := 1 to 20 do begin
liczba[i] := random(100);
write(liczba[i],' ');
suma := suma + liczba[i];
end;
write('wynosi: ',suma);
readln;
end.

 

Ad.2

program oceny;
uses crt;
var
i, suma: integer;
m1: array[1..10] of integer;
m2: array[1..10] of integer;
begin
clrscr;
Randomize;
for i := 1 to 10 do
m1[i] := random(100);
for i := 1 to 10 do begin
Writeln('Podaj ',i,' wartosc: ');
readln(m2[i]);
end;
clrscr;
for i := 1 to 10 do begin
Writeln(m1[i],' - ',m2[i],' = ',m1[i]-m2[i]);
end;
readln;
end.