Составить программки для паскаля для последующих задач: 1. В массиве из
Составить программки для паскаля для последующих задач: 1. В массиве из 10 частей подсчитать количество нечетных частей 2. Вычислить сумму квадратов частей, огромных 2. Массив состоит из 5 элементов реального типа. 3. Даны два массива. Сформировать 3-ий массив, каждый элемент которого равен разности подходящих элементов знаменитых массивов. 4. Найти значение и порядковых номер максимального элемента.
Задать свой вопрос1.
var a: array[1..10] of integer;
i, n: integer;
begin
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do if a[i] mod 2 gt; 0 then n := n + 1;
writeln(n);
end.
2.
var a: array[1..10] of integer;
i, s: integer;
begin
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do if a[i] gt; 2 then s := s + (a[i]*a[i]);
writeln(s);
end.
3.
var a: array[1..10] of integer;
i, n: integer;
begin
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do if a[i] mod 2 gt; 0 then n := n + 1;
writeln(n);
end.
4.
var a: array[1..10] of real;
i : integer;
begin
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do writeln(a[i]);
end.
5.
var a: array[1..10] of integer;
b: array[1..10] of integer;
c: array[1..10] of integer;
i: integer;
begin
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do readln(b[i]);
for i:=1 to 10 do c[i]:=a[i]-b[i];
for i:= 1 to 10 do write(c[i]:4);
end.
6.
var a: array[1..10] of real;
i, amax, aimax : integer;
begin
for i:=1 to 10 do readln(a[i]);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Литература.
Литература.
Разные вопросы.
Кыргыз тили.
Математика.
Разные вопросы.
Алгебра.
Алгебра.