80) Код программы:
var A:array[1..10] of integer;
i:integer;
begin
writeln('Заданный массив:');
for i:=1 to 10 do begin
A[i]:=random(101);
write(A[i], ' ');
end;
writeln('');
writeln('Четные элементы массива:');
for i:=1 to 10 do begin
if (A[i] mod 2 = 0) then
writeln(A[i]);
end;
end.
81) Код программы:
var D:array[1..8] of integer;
sum, i:integer;
begin
sum:= 0;
writeln('Заданный массив:');
for i:=1 to 8 do begin
D[i]:=random(101);
write(D[i], ' ');
end;
writeln('');
for i:=1 to 8 do
sum:= sum + D[i];
writeln('Сумма элементов массива = ',sum);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Какое программное обеспечение необходимо установить на компьютер для обеспечения работы с внутри больничной документацией и доступа в интернет?
C++
Объяснение:
#include <iostream>
using namespace std;
int main()
{
int *arr;
int count;
cout << "Input count numbers: ";
cin >> count;
arr = new int[count];
int maxC = -350000000;
int minC = 350000000;
cout << "Input numbers: " << endl;
for(int i = 0;i < count;i++) {
cin >> arr[i];
}
for(int i = 0;i < count;i++) {
if (arr[i] < minC) {
minC = arr[i];
}
if(maxC < arr[i]) {
maxC = arr[i];
}
}
cout << "Max: " << maxC << " Min: " << minC;
return 0;
}