//Pascal //Массивы размеров 10 элементов заполняются случайными числами от -10 до 10
//1 var A: array[1..10] of real; i: byte; begin randomize; writeln('Исходный массив.'); for i := 1 to 10 do begin A[i] := random(21)-10; write(A[i]:5); end; writeln; writeln('Измененный массив.'); for i := 1 to 10 do begin if A[i] > 0 then A[i] := A[i] / 2 else A[i] := i; write(A[i]:5); end; writeln; end.
//2 var A: array[1..10] of integer; i: byte; mult: longint; begin mult := 1; randomize; writeln('Исходный массив.'); for i := 1 to 10 do begin A[i] := random(21)-10; mult := mult * A[i]; write(A[i]:5); end; writeln; writeln('Произведение элементов массива = ', mult); end.
1) uses crt; const size = 10; var a:array [1..size] of integer; i,p:longint; begin p:=1; randomize; for i:=1 to size do begin a[i]:=random(20); write (a[i],' '); if (a[i] mod 3 = 0) then p:=p*a[i]; end; writeln; writeln (p); end.
2) uses crt; const size = 10; var a:array [1..size] of integer; i:integer; s:real; begin s:=0; randomize; for i:=1 to size do begin a[i]:=random(4)+1; write (a[i],' '); s:=s+a[i]; end; writeln; s:=s/size; writeln (s); end.
На экран будет выведено "ШКОЛ", данный срез нам даст слово без последней буквы.