Var n,a,h,m,s:integer;
begin
writeln('Введите кол-во дней');
read(n);
if n>1 then begin
writeln('В ', n ,' сутках:');
writeln(n*24,' часа');
writeln(n*24*60,' минут');
writeln(n*24*60*60,' секунд')
end;
if n=1 then begin
writeln('В ',n,' дне');
writeln(n*24,' часа');
writeln(n*24*60,' минут');
writeln(n*24*60*60,' секунд');
end;<span>
end.
</span>
Рожица разделенная на две части)
#include <iostream>
#include <vector>
#include <cstdlib>
using namespace std;
int main()
{
int count;
cout <<"Введите размер массива: ";
cin >>count;
vector<int> v(count);
srand(time(0));
for (int i=0; i<count; i++)
{
v[i]=rand()%100;
cout <<v[i] <<" ";
}
cout <<endl;
int c=0;
int n;
cout <<"Введите максимальный элемент: ";
cin >>n;
for (int i=0; i<v.size(); i++)
if (v[i]>n)
{
v[i]=n;
c++;
}
cout <<"Было произведено " <<c <<" замен" <<endl;
for (int i=0; i<v.size(); i++)
cout <<v[i] <<" ";
cout <<endl;
return 0;
}
===== PascalABC.NET =====
begin
var A := ReadArrInteger('Введите 8 целых чисел:', 8);
A.Println;
var B := ArrGen(8, i -> i * i, 1);
B.Println;
var C := ArrRandom(8, -99, 99);
C.Println;
end.
Примечание: Если все три массива надо вывести в одну строку, вместо A.Println и B.Println указать A.Print и B.Print