Program p1;
var a:array[1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do a[i]:=random(10);
writeln('Массив:');
for i:=1 to 10 do writeln('a[',i,']=',a[i]);
for i:=1 to 10 do a[i]:=a[i]+i;
writeln('Результат:');
for i:=1 to 10 do writeln('a[',i,']=',a[i]);
end.
Из 8 фунтового горшка перелить до краёв в 5 фунтовый горшок, за тем из 3 фунтового в 8 фунтовый)))
Var z:real; i:integer;
begin
writeln('Введите цену одного килограмма и нажмите <enter> ');
writeln(' (копейки от рублей отделяйте точкой) ');
readln(z); writeln('Вес (граммов) Cтоимость (руб.) ');
for i:=1 to 10 do writeln(i*100:13,z*i/10:10:2); readln
<span>end. </span>
выделить ячейку->ввести знак->выделить ячейку с первым.->ввести знак операции->выделить ячейку с вторым оп. -> нажать enter
Using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace СиШарп
{
class Program
{
static void Main(string[] args)
{
Console.Write("a = ");
double a = double.Parse(Console.ReadLine());
Console.Write("b = ");
double b = double.Parse(Console.ReadLine());
Console.Write("c = ");
double c = double.Parse(Console.ReadLine());
if (a > b) a = b;
if (a > c) a = c;
Console.WriteLine("Min = {0}",a);
Console.ReadKey();
}
}
}