#include <iostream>
using namespace std;
int main() {
setlocale(0, "RUS");
int x[25];
for (int i = 0; i < 5; i++) {
cin >> x[i];
}
cout << "Исходный массив" << endl;
for (int i = 0; i < 5; i++) {
cout << x[i] << " ";
if (x[i] < 0) x[i] += 5;
}
cout << endl << "Новый массив" << endl;
for (int i = 0; i < 5; i++) {
cout << x[i] << " ";
}
cout << endl;
system("pause");}
Const
n = 10;
var
a: array[1..n] of string;
i: integer;
begin
for i := 1 to n do
begin
a[i] := chr(ord('A') + i - 1);
writeln(a[i]);
end;
end.
А) 100101001,101
Б) 10000111,11
в)100111010,10010111
г) 10101,01010001011101110100010111010001011101000101
<em>// PascalABC.NET 3.2, сборка 1449 от 23.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
type
R=(string,integer);
begin
var a:=ReadAllLines('input.txt');
var L:=new List<R>;
foreach var s in a do begin
var w:=s.ToWords.ToArray;
if w[2]>'80' then L+=(w[1][1]+'. '+w[0],w[2].ToInteger);
end;
var f:=OpenWrite('output.txt');
L.OrderByDescending(x->x[1]).ForEach(x->Writeln(f,x[0],' ',x[1]));
f.Close
end.
Операции присваивания (=, +=, -=, *= и т. д.)
Операции присваивания могут использоваться в программе как законченные операторы.
Формат операции простого присваивания (=):