Question

W ciągu 25 wczytanych liczb całkowitych określ:
a) ile razy wystąpiła licza ktora przy dzieleniu przez 7 daje reszte 3
b) sume liczb ujemnych

c) najwieksza liczbe

Przedstaw rozwiązanie w postaci "kolejnych krokow"

Answer 1

uses crt;
var
tab:array[1..25] of integer;
i,reszta,suma,max:integer;
BEGIN
clrscr;
reszta:=0;
suma:=0;
max:=0;
for i:=1 to 25 do
begin
writeln('podaj liczbe: ');
readln(tab[i]);
if (tab[i] MOD 7=3) then
reszta:=reszta+1;
if tab[i]<0 then
suma:=suma+tab[i];
if tab[i]>max then
max:=tab[i];
end;
Writeln('liczba ktora przy dzieleniu przez 7 daje reszte 3 wystapila: ',reszta,' razy');
writeln('suma liczba ujemnych to: ',suma);
writeln('najwieksza liczba to: ',max);
readln;
end.

 

Tu masz ten program a teraz trzeba napisać co się po kolei robiło

1.Tworzenie tablicy jednowymiarowej o 25 indeksach

2.tworzenie zmiennych reszta suma max
3.Wyzerowanie wszystkich zmiennych

4.Tworzenie pętli która będzie się kręciła 25 razy (tyle ile jest liczb)

5.Pobieranie liczby( w tej pętli)

6.sprawdzanie czy po podziale przez 7 da reszte 3, jeżeli tak do zmiennej reszta staje się tym czym była +1

7.sprawdzanie czy liczba jest ujemna, jeżeli tak to zmienna suma staje się tym czym była + ta liczba

8.sprawdzanie czy dana liczba jest większa od poprzednij wartosci, jeżeli tak to zmienna max staje się tą liczbą

9. Wypisywanie wartości

 

Jeżeli coś jest nie jasnego lub zrobione nie tak to pisz ;] pozdr