Program zadacha; uses crt; var a, i: integer; z: real; h: array [1..5] of integer; begin clrscr; write ('vvedite chislo A: '); readln (a); for i:=1 to 5 do begin write ('vvedite elemeny massiva H: '); readln (h[i]); z:=sqrt(h[i]/a); writeln ('H[i]=',h[i], ' Z=', z:0:4); end; readkey; end.
или
program zadacha; uses crt; var a, i: integer; z: real; h: array [1..5] of integer; begin clrscr; write ('vvedite chislo A: '); readln (a); for i:=1 to 5 do begin write ('vvedite elemeny massiva H: '); readln (h[i]); end; for i:=1 to 5 do begin z:=sqrt(h[i]/a); writeln ('H[', i, ']=',h[i], ' Z=', z:0:4); end; readkey; end.
Case N:=1 fo 12 {тут N это цифра месяца } 1: writeln(' зима') {тут выводится название времени года} 2: writeln('зима') {тут выводится название времени года} 3: writeln('весна') {тут выводится название времени года} 4: writeln('весна') {тут выводится название времени года} 5: writeln('весна') {тут выводится название времени года} 6: writeln('лето') {тут выводится название времени года} 7: writeln('лето') {тут выводится название времени года} 8: writeln('лето') {тут выводится название времени года} 9: writeln('осень') {тут выводится название времени года} 10: writeln('осень') {тут выводится название времени года} 11: writeln('осень') {тут выводится название времени года} 12: writeln('зима') {тут выводится название времени года}
DAG
Объяснение: