Составить программы для паскаля для следующих задач:
1. В массиве из 10 элементов подсчитать количество нечетных элементов
2. Вычислить сумму квадратов элементов, больших 2. Массив состоит из 5 элементов действительного типа.
3. Даны два массива. Сформировать третий массив, каждый элемент которого равен разности соответствующих элементов известных массивов.
4. Определить значение и порядковых номер максимального элемента.
1. В массиве из 10 элементов подсчитать количество нечетных элементов
2. Вычислить сумму квадратов элементов, больших 2. Массив состоит из 5 элементов действительного типа.
3. Даны два массива. Сформировать третий массив, каждый элемент которого равен разности соответствующих элементов известных массивов.
4. Определить значение и порядковых номер максимального элемента.
Answers & Comments
uses crt;
const n=10;
var a: array[1..n] of integer;
i, s: integer;
begin
clrscr;
s:=0;
writeln('Введите элементы массива');
for i:=1 to n do begin
read(a[i]); // ввод элементов в одну строку через пробел
if a[i] mod 2 = 1 then inc(s)
end;
writeln(s);
readkey;
end.
program z2;
uses crt;
const n=5;
var a: array[1..n] of real;
i: integer;
s: real;
begin
clrscr;
s:=0;
writeln('Введите элементы массива');
for i:=1 to n do begin
read(a[i]); // ввод элементов в одну строку через пробел
if a[i]>2 then s:=s+sqr(a[i])
end;
writeln(s);
readkey;
end.
program z3;
uses crt;
const n=5;
var a1, a2, a3: array[1..n] of integer;
i: integer;
begin
clrscr;
randomize;
for i:=1 to n do begin
a1[i]:= random(100)+1; // рандомное число от 1 до 100
a2[i]:= random(100)+1;
a3[i]:=a1[i]-a2[i];
writeln(a1[i], ' ', a2[i], ' ', a3[i]);
end;
readkey;
end.
program z4;
uses crt;
const n=10;
var a: array[1..n] of integer;
max, c, i: integer;
begin
clrscr;
writeln('Введите элементы массива');
for i:=1 to n do read(a[i]);
max:=a[i];
for i:=1 to n do begin
if max<a[i] then begin max:=a[i]; c:=i
end
end;
writeln('');
writeln('max=', max, ' номер=', c);
readkey;
end.