1. Где мы используем компьютеры? 2 Сколько поколений ЭВМ вам известно? 3.Назовите 5 внутренних устройств компьютера? 4. Какие критерии компьютера будущего ты знаешь ?
// PascalABC.NET 3.2, сборка 1344 от 22.11.2016 // Внимание! В других версиях работа не гарантируется! begin var a:=ArrRandom(15,-20,20); a.Println; a:=a.Select(x->x.IsOdd?x*3:x div 2).ToArray; a.Println end.
А вот так это же самое обычно делают в школах... const n=15; var a:array[1..n] of integer; i:integer; begin Randomize; for i:=1 to n do begin a[i]:=Random(41)-20; Write(a[i],' ') end; Writeln; for i:=1 to n do begin if a[i] mod 2=0 then a[i]:=a[i] div 2 else a[i]:=a[i]*3; Write(a[i],' ') end; Writeln end.
#include <conio.h>
using namespace std;
int main()
{
setlocale(LC_ALL,"Russian");
const int N=7;
int A[N];
cout << "Введите массив, состоящий из " << N << " элементов:\n";
for (int i=0; i<N; i++)
cin >> A[i];
cout << "Массив до - ";
for (int i=0; i<N; i++)
{
cout << A[i] << " ";
if (A[i]*A[i] < 25) A[i] *= 2;
}
cout << "\nМассив после - ";
for (int i=0; i<N; i++)
cout << A[i] << " ";
_getch();
return 0;
}
Microsft Visual C++ 2010