const n=20;
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
begin
a[i]:=random(31)-10;
write(a[i]:4);
end;
end.
Пример:
7 8 12 16 8 16 6 16 3 9 10 1 3 -1 17 -9 19 -2 1 4
А)лишнее звук
б)лишнее число
Нужно добавить всего-то 1 строку:
...
if pos(copy(stroka,i,1),' ,.?!-:;') <> 0 then
{если i-ый символ из строки stroka содержится в строке ' ,.?!-:;', то}
begin
slovo := copy(stroka,1,i-1); // копируем слово
If (slovo[1]='л') or (slovo[Length(slovo)]='ь') then Writeln(Slovo);
delete(stroka,1,i-1); // Удаляем его из текста
while (length(stroka)>0)and (not(stroka[1] in b)) do
delete(stroka,1,1); // удаляем все разделители до следующего слова
i := 1; // снова рассматриваем слово с первого символа
end
....
#include <iostream>
using namespace std;
int main()
{
setlocale (0,"");
string mas [20];
int x;
int n;
int d;
cout<<"введите начальное число x: ";
cin >> x;
cout<<"введите число членов массива n: ";
cin >> n;
cout<<"введите разность чисел d: ";
cin >> d;
for (n;n>=1; n--)
{
cout<<x<<endl;
x=x+d;
}
return 0;
}
