Не получается составить программу (язык паскаль) вычисления сопротивления электрической цепи, состоящей из двух последовательно соединенных сопротивлений. (величина первого сопротивления 15 ом, второго сопротивления 27, 3 ом)вот как начал составлять программу. uses crt; var x, y, c: real; begin clrscr; write('введите 1 '); readln (x); write ('введите 2 '); readln (y); readln(c); c: =(x*y)/(x*y); writeln('c', c: 8: 2); readln; end.

Сопротивление при последовательном соединение равно сумме двух сопротивлений

uses crt;

var x,y,c:real;  

begin  

write('Введите 1 сопротивление...');  

readln (x);  

write ('Введите 2 сопротивление...');  

readln (y);  

c:= x + y;  

writeln('Сопротивление ',c);  

End.

К сожалению, ты не написал на каком тебе надо языке, я выбрал 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);

Const 
n=5;

Var
 ar:array[1..n] of integer;
 ar2:array[1..n] of integer;
 i,k:integer;

 function prost(a:integer):boolean;
 var i:integer;
 b:boolean;
  begin
  b:=true;
   for i:=2 to a div 2 do
    if a mod i=0 then
     begin;
      b:=false;
      break;
     end;
   if a=1 then b:=false;
  prost:=b;
 end;

  begin;
 randomize;
 k:=0;
  for i:=1 to n do
   begin;
    ar[i]:=random(101);
    write(ar[i]:4);
   end;
  writeln;
  for i:=1 to n do
  if prost(ar[i]) then
   begin;
    inc(k);
    ar2[k]:=ar[i];
    write(ar2[k]:4);
   end;
end.