Var a,b,c,p: Real;
begin
writeln('Введите a,b,c,p');
readln(a,b,c,p);
writeln('S=',sqrt(p*(p-a)*(p-b)*(p-c)));
end.
#include <iostream>
#include <cstdlib>
using namespace std;
int main(){
int a[n][m];
int minA[m];
int min;
for(int i = 0; i < n; i++){
for(int j = 0; j < m; j++){
a[i][j] = rand()% 50 - 10;
cout<<a[i][j]<<" ";
}
cout<<endl;
}
cout <<"Min:"<<endl;
for(int j = 0; j < m; j++){
min = 9999;
for(int i = 0; i < n; i++){
if((a[i][j] > 0) && (a[i][j] < min))
min = a[i][j];
}
minA[j] = min;
cout<<minA[j]<<" ";
}
int max = minA[0];
for(int j = 1; j < m; j++){
if(max < minA[j])
max = minA[j];
}
cout<<endl<<"Max = "<<max;
return 0;
}
Самое простое, заполнить только четные элементы, т.к. в нечетных по умолчанию уже ноль стоит))
DIM A(15)
FOR I = 2 TO 15 STEP 2
A(I) = 1
NEXT I
Если нужно увидеть массив, можно дополнить блоком вывода
FOR I = 1 TO 15
PRINT A(I)
NEXT I
Ну, а если явным образом вписывать нули, то тогда так
DIM A(15)
FOR I = 1 TO 15 STEP 2
A(I) = 0
NEXT I
FOR I = 2 TO 15 STEP 2
A(I) = 1
NEXT I
Наверное, 8. Сначала делим число 226 пополам (т.к всего 226 вариантов чисел), задаёт вопрос, "больше 113 или нет". После опять дели пополам оставшуюся часть и опять задаёт аналогичный вопрос. И т.д.
Клавиатура, мышь, сканер, микрофон, джойстик.