Паскаль 1. дан массив из n элементов. вывести квадраты элементов с нечетными номерами. 2. дан массив из n элементов. определить количество элементов, которые являются нечетными числами.
1)var a:array[1..100] of integer; i,n:integer; begin readln(n); for i:=1 to n do a[I]:=random(10000); for i:=1 to n do if i mod 2 <> 0 then write(a[I]*a[I],' '); end.
2)var a:array[1..100] of integer; i,k,n:integer; begin readln(n); for i:=1 to n do a[I]:=random(10000); for i:=1 to n do if a[I] mod 2 <> 0 then k:=k+1; write(k); end.
Program z3; Var y: array [1..15] of real; g: array [1..20] of real; i,d: integer; sum, sum_2: real;Begin writeln('Введите оплату труда за день'); read(d); for i := 1 to 15 do y[i] := random (30) * d * 0.8; for i:=1 to 20 do g[i] := random (30) * d * 0.8; for i:=1 to 15 do begin writeln('Сотрудник y_',i,' - ',y[i]); sum:= sum + y[i]; end; writeln; writeln('Сумма отдела y - ', sum); writeln; for i:=1 to 20 do begin writeln('Сотрудник g_',i,' - ',g[i]); sum_2:= sum_2 + g[i]; end; writeln; writeln('Сумма отдела g - ', sum_2); writeln; End.
Program z3; Var y: array [1..15] of real; g: array [1..20] of real; i,d, a,b: integer; sum, sum_2: real;Begin writeln('Введите оплату труда за день'); read(d); a:= 0; b:= 0; for i := 1 to 15 do begin y[i] := random (30); if (y[i] < 10) then a:= a + 1; y[i] := y[i] * d * 0.8; end; for i:=1 to 20 do g[i] := random (30); if (g[i] < 10) then b:= b + 1; g[i] := g[i] * d * 0.8; for i:=1 to 15 do begin writeln('Сотрудник y_',i,' - ',y[i]); sum:= sum + y[i]; end; writeln; writeln('Сумма отдела y - ', sum); writeln; for i:=1 to 20 do begin writeln('Сотрудник g_',i,' - ',g[i]); sum_2:= sum_2 + g[i]; end; writeln; writeln('Сумма отдела g - ', sum_2); writeln; writeln('В отделе y ', a, ' сотрудников работало меньше 10 дней'); writeln; writeln('В отделе g ', b, ' сотрудников работало меньше 10 дней'); End.
begin
readln(n);
for i:=1 to n do
a[I]:=random(10000);
for i:=1 to n do
if i mod 2 <> 0 then write(a[I]*a[I],' ');
end.
2)var a:array[1..100] of integer; i,k,n:integer;
begin
readln(n);
for i:=1 to n do
a[I]:=random(10000);
for i:=1 to n do
if a[I] mod 2 <> 0 then k:=k+1;
write(k);
end.