1) uses crt;
var i,n,s,mx:integer;a:array[1..1000] of integer;
begin
randomize();
mx:=-100;
for i := 1 to 10 do begin
a[i] := random(100) + 1;
write(a[i],' ');
if (a[i] mod 2 = 0) and (mx < a[i])then mx := a[i];
end;
writeln('');
writeln(mx);
end.
2)
uses crt;
var i,n,s,mn1,mn2:integer;a:array[1..1000] of integer;
begin
randomize();
mn1:= 101;
mn2:= 101;
for i := 1 to 10 do begin
a[i] := random(100) + 1;
write(a[i],' ');
if (a[i] mod 2 = 1) and (mn1 > a[i])then begin
mn2 := mn1;
mn1 := a[i]
end;
end;
writeln('');
writeln(mn2);
end.
ответ 2
так как в предложении 37 символов
37*2(так как каждый символ 2 байта) = 74 байта
байты переводим в биты получаем 74 * 8 = 592 бита
Ответ:
#include <iostream>
int main()
{
float Number[10];
for (int i = 0; i < 10; i++) {
std::cin >> Number[i];
}
for (int i = 0; i < 10; i++) {
for (int j = 0; j < 10; j++) {
if (Number[i] < Number[j]) {
float temp = Number[j];
Number[j] = Number[i];
Number[i] = temp;
}
}
}
for (int i = 0; i < 10; i++) {
std::cout << Number[i] << "\t" ;
}
return 0;
}
Объяснение:
Работает правильно, но возможно был допущен недочёт в алгоритме, для сортировки использовал пузырьковую сортировку.
var
a, b: integer;
begin
write('введите две стороны = >');
readln(a, b);
writeln('периметр = ', 2 * (a + b));
writeln('площадь = ', a * b);
end.