Дана задача: Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить численность амеб через 3, 6, 9,12, ..., 24 часа. Определите и запишите назначение подобной задачи
К сожалению, ты не написал на каком тебе надо языке, я выбрал JavaScript 1) var array = [4,5,10,-10,5]; var min = 1000000; for (var i = 0; i < 5; i++) { if (min>array[i]) { min = array[i]; } } alert("Минимальный элемент + "min);
2)var array = []; for (var i = 0; i < 5; i++) { var number = prompt("Введите число"); array.push(number); } alert("Ваш массив " + array); var min = 1000; var max = 0; for (var j = 0; j < 5; j++) { if (min > array[j]) { min = array[j]; } } alert("Минимум = " + min); for (var k = 0; k < 5; k++) { if (max < array[k]) { max = array[k]; } } alert("Максимум = " + max);
Procedure TForm1.Button4Click(Sender: TObject); var Buff: TNodePointer; x: TItem; i,j: Cardinal; begin i:=0; Buff:=Head; if(Buff^.Next=nil) then begin ShowMessage('В стеке один элемент!'); exit; end; while Buff <> nil do begin while (Buff^.Next<>nil) and (Buff^.Data=Buff^.Next^.Data) and not(isEmpty(Buff)) do begin pop(Buff^.Next,x); for j:=i to StringGrid1.RowCount-2 do StringGrid1.Cells[0,j]:=StringGrid1.Cells[0,j+1]; StringGrid1.RowCount:=StringGrid1.RowCount-1; end; Buff:=Buff^.Next; i:=i+1; end; end;
PS. Delphi у меня сейчас нет, так что проверяйте сами. Если что не так - сообщайте.
1) var array = [4,5,10,-10,5];
var min = 1000000;
for (var i = 0; i < 5; i++) {
if (min>array[i]) {
min = array[i];
}
}
alert("Минимальный элемент + "min);
2)var array = [];
for (var i = 0; i < 5; i++) {
var number = prompt("Введите число");
array.push(number);
}
alert("Ваш массив " + array);
var min = 1000;
var max = 0;
for (var j = 0; j < 5; j++) {
if (min > array[j]) {
min = array[j];
}
}
alert("Минимум = " + min);
for (var k = 0; k < 5; k++) {
if (max < array[k]) {
max = array[k];
}
}
alert("Максимум = " + max);