Написать программу которая по введённому значению оценки (2-5) выводит название этой оценки (2-неудовлетворительно, 3-удовлетворительно, 4-хорошо, 5-отлично).
Var Rating :integer; begin readln(Rating); case Rating of 2: writeln('Неудовлетворительно'); 3: writeln('Удовлетворительно'); 4: writeln('Хорошо'); 5: writeln('Отлично'); end; end.
1) var a, b: array [1..10] of integer; i, sum: integer; begin sum := 0; for i := 1 to 10 do b[i] := 0; for i := 1 to 10 do begin read(a[i]); if a[i] < 0 then begin sum := sum + 1; b[i] := i; end; end; writeln('Amount of negative numbers: ', sum); for i := 1 to 10 do if b[i] <> 0 then write(b[i], ' '); end.
2) var a: array [1..10] of integer; i: integer; flag: boolean; begin flag := false; randomize; for i := 1 to 10 do begin a[i] := random(10); if a[i] = 5 then flag := true; end; for i := 1 to 10 do write(a[i], ' '); if flag then writeln('YES') else writeln('NO'); end.
3) var a: array [1..10] of integer; i, ind, odd: integer; begin randomize; ind := 0; for i := 1 to 10 do begin a[i] := random(10); if a[i] mod 2 <> 0 then begin ind := i; odd := a[i]; end; end; for i := 1 to 10 do write(a[i], ' '); if ind <> 0 then writeln(a[ind], ' ', ind) else writeln('Array has no odd elements'); end.
4) var a: array [1..10] of integer; i: integer; begin writeln; randomize; for i := 1 to 10 do begin a[i] := random(20); write(a[i], ' '); end; writeln; for i := 1 to 10 do if (a[i] < 15) and(a[i] > 5) then write(a[i], ' '); end.
Program aaa; var Y:array[1..1000,1..1000] of longint; n,m,i,j,count5,countm9,s5,sm9:longint; begin writeln('введите размерность массива'); read(n,m); writeln('введите массив'); for i:=1 to n do for j:=1 to m do read(Y[i,j]); count5:=0; countm9:=0; s5:=0; sm9:=0; for i:=1 to n do for j:=1 to m do begin if Y[i,j]>5 then begin inc(count5); s5:=s5+Y[i,j] end; if Y[i,j]<-9 then begin inc(countm9); sm9:=sm9+Y[i,j] end; end; writeln('всего элементов больше 5:',count5,' ,сумма этих элементов равна:',s5); writeln('всего элементов меньше -9:',countm9,' ,сумма этих элементов равна:',sm9) end.
begin
readln(Rating); case Rating of 2: writeln('Неудовлетворительно'); 3: writeln('Удовлетворительно'); 4: writeln('Хорошо'); 5: writeln('Отлично'); end;
end.