нужно вставить в этот код цикл или подпрограмму чтобы код работал
#include
using namespace std;
int main()
{
float S,t;
char tip;
cout << "Введите путь:"; cin >> S;
cout << "Введите время:"; cin >> t;
cout << "Введите вид движения('r'-равном; 'u'-ускор;): "; cin >> tip;
switch ( tip ) {
case 'r':
cout << "Скорость: " << S/t;
break;
case 'u':
cout << "Скорость: " << 2*S/t << endl;
break;
default:
cout << "Ошибка, выход\n";
break;
}
}
//Pascal ABC.NET v3.1 сборка 1172
Const
n=20;
Var
ar:array[1..n] of integer;
i:integer;
begin
randomize;
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(10)-3;
write(ar[i]:4);
if ar[i]>0 then ar[i]:=ar[i]*2 else ar[i]:=0;
end;
writeln;
writeln('Final array:');
for i:=1 to n do
write(ar[i]:4);
end.
Пример работы программы:
First array: 2 -3 5 6 -3 -3 1 -2 -3 1 3 -3 4 -3 1 -1 6 6 2 3
Final array: 4 0 10 12 0 0 2 0 0 2 6 0 8 0 2 0 12 12 4 6