ПРИМЕРЫ РЕШЕНИЯ ЗАДАЧ С ОДНОМЕРНЫМИ МАССИВАМИ. ЗАДАЧА: Вычислить сумму элементов массива program summa(input,output); var I:integer; T:array[1..5] of. - презентация

1 ПРИМЕРЫ РЕШЕНИЯ ЗАДАЧ С ОДНОМЕРНЫМИ МАССИВАМИ

2 ЗАДАЧА: Вычислить сумму элементов массива program summa(input,output); var I:integer; T:array[1..5] of integer; s:real; begin s:=0; for I:=1 to 5 do read(T[I]); for I:=1 to 5 do s:=s+T[I]; write(s:2); end.

3 ЗАДАЧА: Вычислить произведение элементов массива program pr(input,output); var I,P:integer; N:array[1..4] of integer; begin P:=1; for I:=1 to 4 do read(N[I]); for I:=1 to 4 do P:=P*N[I]; writeln ('P=',P); end.

4 ЗАДАЧА: Подсчитать количество элементов массива, удовлетворяющее заданному условию program kol(output); var k:integer; N:array[1..10] of integer; i:integer; begin i:=0; for k:=1 to 10 do read(N[k]); for k:=1 to 10 do if N[k]=2 then i:=i+1; writeln( i); end.

5 ЗАДАЧА: Заменить одни элементы массива на другие program zamen(output); var k:integer; N:array[1..5] of integer; i:integer; begin i:=0; for k:=1 to 5 do read(N[k]); for k:=1 to 5 do if N[k]=5 then N[k]:=2; for k:=1 to 5 do write( N[k]:2); end.

6 ЗАДАЧА: Сменить порядок расположения элементов массива на обратный program smena(output); var k:integer; N:array[1..5] of integer; begin for k:=1 to 5 do read(N[k]); for k:=5 downto 1 do writeln(N[k]); end.

7 ЗАДАЧА: Поиск минимального элемента массива и его номер program minBB (input,output); var A:array[1..10] of integer; i, min, minN:integer; begin for i:=1 to 10 do read(A[i]); minN:=1; min:=A[1]; for i:=2 to 10 do if A[i]

8 ЗАДАЧА: Вычислить сумму квадратов элементов массива program kvadr(input,output); var I:integer; s:real; N:array[1..3] of real; begin for I:=1 to 3 do read(N[I]); S:=0; for I:=1 to 3 do S:=S+N[I]*N[I]; writeln ('s=',s:4); end.

9 ЗАДАЧА: Вывести на печать элементы массива, кратные трём. program kratn(input,output); var I:integer; N:array[1..10] of integer; begin for I:=1 to 10 do read(N[I]); for I:=1 to 10 do begin if N[I] mod 3=0 then writeln (N[I]); end; end.

10 ЗАДАЧА: Вычислить среднее арифметическое элементов массива program arif(input,output); var I:integer; s:real; N:array[1..4] of real; begin for I:=1 to 4 do read(N[I]); S:=0; for I:=1 to 4 do S:=S+N[I]/4; writeln ('s=',s:4); end.

11 ЗАДАЧА: Вывести на печать элементы массива умноженные на заданное число program viv(input,output); var I:integer; T:array[1..5] of integer; begin for I:=1 to 5 do begin read(T[I]); writeln(T[I]*2:2); end; end.

12 ЗАДАЧА: Ввод элементов массива с помощью функции (генератора случайных чисел) program sluch(input,output); var I:integer; T:array[1..10] of integer; begin for I:=1 to 10 do T[i]:=random(10); for I:=1 to 10 do write(T[I]:2); end.